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S^.JSl0S%fEU7|t-h 



*"'i*-5Xi»-C^ iz->T/ it- 

tmffl sn *«*#<» v. ^t. in 

fc/:l(i4W1 H(UO s iTC 



[lk4W1 H*"f7T r ~-C**>9j 
t^TJty-b—. VX-ltiX. <S r * 

tz a -*>\.-r>tz94 7<D>f-l>& 
«S*A»t S®ffl*v.*fr*t>"ll 

4'L^b, JWl«-}T^Cf¥W4- 




OM S X 2 +^ffl(7) r S C R L L - B 
ATTLEj,J-/ <— "7 'J * Wif-U 



fc'r«C%b-3£»->TIILA^fc 





©iS^^ICtilggTVtlfcf'F 










D-WALL 


seaa* 


*<7)iBB 


WEBS* 


If-afcl,*;/*}'^ 


KJftJEW (TIFFANY SOFT) 


4>*s# 


*>+&£(**>'*>*) 


BLACK ROAD 


S±«(SX-SOFT) 


**■ 


0J*»5i(7i-fX) 


iiftfctttti-ffiUJtfr 


? £«&#(YIS) 










7'->*J0>*«3~:7V-f 


•If-fT'y- *(*)« 


8HANDS 


#B]«l(MIJINKO-SOFT) 


KICK! KICK! KICK! 


«EfllSJE 


PRO SPORT ~i]-n.O)IfS~ BS3f±(Prof.26) 


YOPPARAI-ULTRA 


*SSi5(SSR) 


has 


SS5iS(Nu~) 


ft !•>*-< 


gSBaiflffAo^t^SOFT WORKS©) 


frl'A* 


m*- JE(KAM) 


DRILL 2 


immhs 


¥(.>*#*>.*/' 


)&*&*( YIS) 


DRIVE GAME 2 


*SJI|K(HASEMAKO) 


FIGHTING WITH THE I 


/100N LIGHT ttX;£(BIB) 










SCROLL-BATTLE 


#ESSS(» **<">) 


a-f +/u • -#--f v • Jju 


7->7^ »»¥JS 


Warrior 


eS^ttTW 










S-FIGHTER 


:OISHKttJH7ia«) 


CARD-BATTLE 


«EH*8lfe(EVERESTER-SOFT) 
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•^p^^A'sOftfBIISI^/ 0SgHli81^-y 




tv 



#S0f-7 r *tmMSX£fU:5j 



frSiti'Sj-r-r. *n-nj. * 

/l&©MSXt:;fcfr-r*77':3-^ 

BXfctMSXfrMofc-jflLi* 
T*At L^o L J: C*- A L fco 

tcJW, *a'jcfcMsxro* 

HLTLJ?A.. SAi'JMS 
X*aiTV.»*A,TTo=ft**- 
JRA(15*) 

oltiin^D, 3LSi:*-9*"fctt 



*Si:y>* l/.:S&IJ*A.4- t 
1WIZ.M S X tttfcWBJ: <J £ ^ 

*j-*<a— tf-OjfcJL* «t < Sit 
W-3T<*iTv.**i:JSo„ i-if 
-0>jftj.-co < b ft 5 m s X tt * 



JB-iOTTto ■*nCM77-Vfc* 

**^o=UJP*-»»(ie«) 
■a— -f-©£J!,©t> koc*-f 

r ${j«4t,fi.5. *0j£ai: 

.©5. *IT\ MSXIiSBK:* 
|tttMSX**i:-Ct)»*fc'o & 

c fc o t m s x fc tt«t»* i &nm 

f, 4*¥#-3TttBU4r>fcW 
r, ft&^fcAl ST*P*Al 

MS XOTf -*-*»!■ *»fcl»3fc, 

9«t* , »i>'<y3>'i:< b^-rs 

i)*?*\st-h„ 8EST98fr«-3 
fc'Jf Sltf, foUT'JMSXO) 



^*^li*C«x.5tff-To MS 

XSf<Kea7-TtttC**t 

iv«y 3 y«^/C4l*/ = ABSfl?- 

JtS*5j(?*) 

4*^H^Ttkgi:U *fl< 
MS X %>»A I A:i*g^ >!*.*-> 
Ift'MSXCSlfA^SO^t.® 

W, bfc L t> 98%-ffi 5 fU: & c, 
4i\, ZtM.&b-r&L^t£0)t-t> 

Ln^i-*', msxo^*hh>0 

3-flliMSX0iJ*&fc;:** 
Klu-rA/j*'. 3fl1ff&^Ui£c, 

fc**&, rMSXfcA.*-**.^* 

r— ?i:Lt, MSX©»i'fct 

z 6, xv ?xv * t a t r ^-Tfeatii 

o-Cl-CIJLi-o (t,iSt) 



: REM0TE TOWN; kUMfitMJm 



f>-DT#SLfco r REMOTE 
TOWNjAn2007JASS«©¥ 



C150^ACaLTJ3'J, 2007JA 

aa, 1 1 fl-si-tH-co/i i ootja 



RBU1 : aSSBS©A-S'«L^c* > 6fP6«6C<t 

S^OBS:SfCo<5(liL;«b© ; P»?QOOB?ffl**?«CO*3t;)<, 
©lRAAM500li<±lca:ofct). 5SM&£t>3l:fS©£0$«!>. ¥«S£gr3o C 

@ia*^zrcis-r^r©±**6^«t^ffi^«<-r^to zzfr&tt, *s 



* -5 «o * IT, -7UU:2007JAS? 

L#U ^<b-fe-7L/:x- 
^^'*^Tfc r 7"ny7A4-i»L'-7 
TAnMK»Lfc<BTttjfc^9tt 

enm^x # fc2007j ASS»©?j;4 



iffcUt:SIHK»^T*fct;%» 
1987JAC»L/io -fttt*iSfc'o 
4T-5 fcAPOJUiQtt-Wa/i'J 

i«i^**iT6 3007JA3?»4 




0~tV)\9^C Xfi&)>iA1tzA.o 2007JA 



□ l9IOTAbLti»«ififc'.ai*bnT?fcT'- 



x^5A^\0)^?i 



>qur^T-h*i 



sx?7im wt©*3- 

•MR3ffi=3l*A^**bnfc 
AA-'7 i < »*^j:i^ #^ Sl'J 
!£<Hra*®ltftlftL^ KFnl 

Ctt7 7'>^AiaTfc§^.tSo 

•B«S=*f«7-n 7*7 A©at 
i:ttM7 7 v^lilx u-h *iiMo 

•1 ff^n-77^= j f©t.©-r 
tya?'7A. y-is y-*« 

CG4^-CfcOK„ -*>bt.*IK 
*UtiM7 7 >^K7- u^J £8tMo 



L»j Cot»T, *^4•©^Sa%•A 
WfeLTV.»S (L«>a»mi2fl17 
H-J&*)o *fc, r *>LfcliBin 

/--/ j<7>x- -7 1 p)B#t:aai„iira 
©isi.*k^t:*/-v.^ 1 4-tr^ 

t f— v0)ffffl#u:ttiafc& ^r88 

>*'AX?7A • OOOjffiJf 

(oooc*3-7--«4An5)„ 

-b— >«TfcOKo tztzls 3-1- 



A*»LT^5o zoyt-ixtt 

X h 3 *#l»T«o-C # Ttt H.'o 
T(»^*'*©»#**<t < 1.TS 



Bt*lfc'/j«)f— VUJ*t**S. 

fc#L^T<nsi:9ftLt>o Lift 
■BJU (412^*0o 4fc\ 7'/*- 

«*%, ttST10*UM7 7'>*U 








^130 



Mobn 

-»P1I6K> 

r 3i-«-(afi 


LbJ I 






MSX2<*HS€-R*g& 



MSXlfrbMSXEC&O 

Msxwctturnsv-a 
*ota*M!bn&u.r ttnar 

IJ355i:g5tf\ nSBTufflil 
tzZ5h\ feuzttawor 

6US"6<©35n/ctt, 3©& 

-fh^Sori-^^tigOo Z 
trials. <7^7-t";/^iIH£ 
S3 fc»©KS*Dfl£ "Ct L ^5 

MSXfflHH^E-KCIS, A 

SCREEN £ 1 tfx^X SBS 
£0TOn3fc©„ SCREEN OISK 

fc>ttU£35« SCREEN 1 ©S5 



3© \&*%mtmm<D z t. z\ 
&tzhjfoht&t x yn y^A&i 

tSZhjtzDUZl^t^ 1115 

zhjtzXfftmmtstizi^m 

®tf x+2. SIi@&©/co 

'}\tsi\zz. w^-D^zy^ 

aivK-KcawtsrtfTcfcsz: 

/vrnfc«ist©3D3Attf'n£ 

£$?£;W6tf&£:A\ ff?©j* 

^orus=&©^HacgL^r 
L\orn§d;5^; : &ffl^©/co 

&i§ttl^r'£&n©£ 
2^7-r ^HEis-&©£r\ 

ssiftffliiffliiace^A^o^ 

SCREEN2KK©BHB^57 
-i-'7^BStD?B'n§t,©r, £>=fclz 
^€}8Ufc0-r5©Cffifflg-5 o SC 
R E E Hm%-CJ=5Z) -f •> ^BHCg 

-rCCx+T.KBBIcti'Sfflr, * 




tz-DZmz&fol\(7)tzZ5 a 

■Scfcac&nfr&U©/";:,, 

SCREEN2£3tt, MS 
X 1 £t5$'ft©3537.7^-r 

&3AMS. BE^-MCtfc-prgKltf! 
5-5i:L/rU5'iCSftttrBE? 

BK&xrBwmwc,, 



SCREEN4W^rii^75 
-< S =E- K 2 £ l\ 5 ©tftetttt 
ru§©£ 

fc/ufcT^AftrfcUfc,, u 

L^rn53^©RB, ^n-en 
i*fc©7.^-rh&©fc\, x- 
a— ^6Hffr*5©r. t,^ 

5-f S'E- K £ tf £A,&=fcfflfr 
SB-KOUZA. SB1) 
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WTreW-FaWJ* 



=E-KCd:oreoctoA^nr 

lAfco 9*0, MSXCttfcfc 

-tiftfo&tl^ZttZo tztz 

U 'tti3MSX2r©fc»& 
or, MSX2+«PSrttg« 

Iff-Scilig^-StfMoo 
Z3rBSCREEN5~S 

©gaic^nr, ^fflijc^ 

SCREEN5WIS©iIEr 
IS, 7^7 -f '>7fSfF©Dn1atf 

setpagepd^. inwg£ 
ur. mmmiristz?^? < v 

SfttiT7'-X-va>fCG 

MZftnz[;5?tzDt2><Dtdo 
-EOT, Ab^StOOg!;^ 



A-S77n-Jb&£=&, Kfr 

SCREEN5WPS©ilHrffi 
5©#UUd;5£«, fc35U=k& 

L^s^cocfc^^^rt, zn 
urus5^6^siarc 

-5-Or, SCREEN5fel 
©B@rlS. giSWCT.T'^-l' 
S^E-SEAMHotlSo UfrL. 

U£/i»&fc©&©7 L c3-5fr? 

7.7^-rs^- serous 

■T^-fS^-SE©^ 

SCREEN l&/ufr77x7 

oULh&5^r^U<£5<!:L 
r=fc, BHCtt77^-Y SAM 

^AU^-rs^-sens, 
^©3t^aoru5AiStfo 

Z.z>l^(Dtzfi\ £z>t,7.y^ 
-fS^E-SEdrB, tctcifttz 




^r-7K-K(3^tir*<i:5 «£F 



t©'jxs£}t5;i/u?, RUNt 

S£frfrStf\ 1 0©X77-f S?£ 

eisijo^urosrofco wtc3©'j 
s iiaffleHS.'HB^s 



PQ X^-fhA^-VSii^/cfcffl 

HftWScSRUrns 

3D 7.7^f hffl^-^-S'fEfili-; 

x-^ c z> n r bjr^t jgfl-rs 

50 7.^^fKR^^gl3Sl!UrS 
SfflT. SffiU&u 
60 S'Jfl-ATJifS 



is 

20 
38 
40 
50 
60 



SCREENS, 3 : C0L0R15 . 0,0 : CLS 
SPRITE$<C0>=STRINGi<:32, 255> t 
FORI=0TO15 : A*=A$+CHR* C I > : NEXT 
COLORSPRITE$<:0>=A$ 
PUTSPRITE0, C100, 100 > , , 
IFSTRIG<0>=0THEN60 



9SC^Ij*5©BA^/S^^! 

r, 7.7^-r s^-si risx 
7^ s£ l er ofrs^r* 

5K S^E-SE?B. 775-f 
S©S>>SHl?iJS<!:Cie-r 
ogSr$5ffl/co £frb, T 

©*-;K-sc&nr^d;e>© 

efcSlC l^fflT^-f S£& 

Sfc, 7.7^-f s^e-si r 
isE#t©7.7^>r s^Kart 

fc©rUfr&fr-3fctf\ 7.7^ 



-<S ; E-SEZrtt77^<'Stf 
a&ofcSB#©g£33fctfn© 

efflORic-rs^ttfr 1 ^ if 

?*s©fc* ^ntx^^-rs 
©S'vs^i^jctcgsr* 

©e«©H#©SB#£l ^Mafc 

¥ys^-r^ &A,r::£fcrs 

rL/*5ffl/co 

7.75-rs©etffi^iJs© 

ISSISCOLORSPR ITE 

M^^fSor^^-rSc pun 

IS£ffi7i;£&£'tt, ;^[i]©3© 

pffir^55tSorn§„ 




OC0L0RSPRITE fcffi-jT. £e»J'JOT*:/ : 7-1' I- %-|I^LT*/; WOS-iBUT 



•MSXS+WROMMre-S 

Msxa+ws©«arB. e**B 

^E-KtlW^-Stf&So S^ffi^E 
-KttSCREEN8©e»CYJK 
7?3tU5t.ffl«='>^^Ufc^^7 

©li5B»tSB3l?©fi6^5x*^ 
SBBtLiofctC5a©^#. Do 



SCREEN5W«"CIJ. COPY 
roxi. SETPAGEro^. ^^g© 

SiaiC^tSo 

COPYro^B^^^-i- -^^©SS 
8B#£. BBfflt'dfr^RAM. 77 

YJHca§r-ssTO*r. ^©i£=fcqi 
MftSfctJ»<tftfreSo 

SETPAGEm^. tUdctOfc 
SCREEN5W»rB. SSCfiStfS 
BBtf'«ISi?aUruS„ SfA N 6. Z 



©ro^r-en^nro^-y^ttJOKx 

S#SpfiAj:ifCgffl?SS©fco 
PA I NTft^BSCREEN2~ 

<MS3tl3:r*rt 1 . «<«S3t 

Bre«*ofco -entfscREEN 
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EE3EE32/2+RAM8K BY Nu~ 



► 31^751*34^-^ 



a. b -j^v-omm 

c 7iy-ri»-cD»»ii» 

k -y^-iv-am-otz^m 

©& 

L(n), R(n) y^V- 

p :?b-n7-©3.:?3-r s 

/W->#5 

Q &«£8oru5#©:7 

=?y 

r mTmzz?i"<v-<m 

E. F £tt©£fl( 

G, H £Sg©&»Jg» 

T, U j?S-T5S«©*/& 

D> M LU/JvJi©flI* 

i iv-ym 

J. Q(n) mmmm/mm 

z!£©ns©g 

L Jg£©L"^b 

N, P(n) VDP©tJJ9if 

s KTivvxim 

V, W, X, Y Uj/J\g©« 



■?n?5A»t& 



ID REM* 

20 Hire-h'©^/^^ 

II 

3D 7.?z>4VK9-V<!mm. 

40 BS'E— K©IS^/ii®e 

©ms 

— **E$!IK»l;:An3 

60 VDP©iaOS^.lcffi5fc 

7o~ioo momzztizmm 

110 remx 
ieo wimm 

130 SJMDflMHb/*:?^ 

h©sm 

140 MJ;tf-A2]£fto 

150 -r>^-AJbiJOji»« 

160 REMCCZfrBX-O) 
170 X^-r^Afl/^b-C 

i*-©£mt#£#«>5 

180 37b-ri7-KJS 

190 7u-ri7-©Sw©sfl!g 

/BB©^'J7fJS 

200 yi/jv-omTmrnt 

21 UJ/MI©«^tZJ9gx. 
220 REMXfZZfr&tl-^b 

230 7u-r-\'-^e«3<»§ 

/^Ul'l 7 -©^^ 



Tannin* 



SUIRHTftf 




%&&#*•» 



'j\g©^-v#«icAote>b<. s 

to #*#Sofc6-H , o-ar<ti'iv 

£ttict-&©iij/jvJi#6 1 > h«»r ff 
-otzf-KC-?,, mmizyav^A* 

S»***x.t**STrS7H'f 
-©«lc let A«0MS©8tt*!S3 , S C 
£70<*5o -<53.SI=t«*>Wr3:b 
fc. «§*JllB*Ud:~. (NU~) 



240 ft*©jN*/fi«*lSo 

250 £i5t©#S)d:il^ 

260 S«€7H'+'-tfKo 

fcd:*©^® 



270 S««7b-f-^-©eg 

280 H*©«fb/aca-3fc 



OUGON. FD1 



50 
60 
70 
80 



:Q(3)< 
:P(4)> 



9:Q(4)=1 
6:VDP(4)=0 



100 
110 
120 
130 



10 '••• SET 

20 SCREEN1 .1 :DEFSNGA-H,V-Z:DEFINTI-U 

30 FORI=0TO20:VPOKE&H3800 + I.VALC&H'*+MID 

$ ( "3C6A3C997EBCFC063C6A3C997E3D3F60A870F 

870A8", 1*2+1 .2) ) :NEXT:FORI=0TO55:VPOKE&H 

3818+1. VPEEK(8+I):NEXT 

40 SCREEN3:COLOR6>0»14 

Q(0)=4:Q(1)=7:Q(2)=5: 

P(1)=2:P(2)=4:P(3)=5: 

FORI=0TO4 : POKE&HF3D6 . P ( I ) *8 : CLS 

V=C0S(3. 14*1/16) :W=SIN(3. 14*1/16) :L( I 
)=124-90*V:R(I)=124+90*V 
90 X=1 24+90*W:Y=96-90*V: LINE (X.Y)-( 124-9 
0*V+40*W.96-90*W-40*V) : LINE-STEP (-40*W» 4 
0*V) :LINE-STEP(180*V,180*W) :LINE-STEP(40 
*W. -40*V) : LINE- (X.Y): PAINT (1 84. X-44) 
LINE (0. 100) -(124.188) .1 .BF:NEXT 
'••• START 

PLAVS8M8888L3204B-BL805AEL4D+" 
A=84:C=0:D=0:K=0:M=0:N=0:Q=0:R=0:T=1 
76+L*4:U=96+L*8:E=T-35:F=U+40:6=0:H=0:VD 
P(4)=0:FORI=0TO4:PUTSPRITEI.(0.209) :NEXT 
:PUTSPRITE5. (8. 175) .2.3+LMOD7:GOSUB230 
140 IFSTRIG(0)THENJ=0:GOSUB280ELSE140 
150 ON INTERVAL = 1 80 0GOSUB280: INTERVAL ON 
160 '••• MAIN 

170 S=STICK(0):C=(C-(S=3)+(S=7))+N*.26:D 
=ABS(D+SGN(A-112) ) : IFD>39THEND=39 
180 GOSUB230 

190 IFA<L(N)THENC=-C:A=A+12:PLAY"S0M9999 
N8":IFQTHENQ=0:PUTSPRITEK. (8.89-K*12) .10 
:K=K+1 :IFK>3THENL=L+1 :GOTO120 
200 IFA>R(N)THENINTERVALOFF:FORI=0TO15:G 
OSUB230 :R=R+8: BEEP: NEXT :L=0:GOTO1 30 
210 M=D¥8:IFN=MTHEN170ELSEN=M:PLAY"S8M99 
L8N8":VDP(4)=P(N) :GOTO170 
220 '••• SUB 

230 A=A+C:B=79+R+(A-120)*N*.21 :PUTSPRITE 
4.(A.B) .15.P:P=1+P*(S<>0) 
240 PUTSPRITEK. , :ONQ+1GOTO250 .270 
250 G=G+SGN(T-E) : E=E+G :H=H+SGN (U-F) :F=F+ 
H:PUTSPRITEK. (E.F).10.2 

260 IFABS(A-E+4)>120RABS(B-F)>8THENRETUR 
NELSEQ=1 :PLAY"S0M999N64": RETURN 
270 PUTSPRITEK. (A+3.B+4) .10. 2: RETURN 
280 COLOR.. Q (J) :PLAY"V13L8N88":J=J+1:IFJ 
<5THENRETURNELSEPLAY"V13L1N8":RETURN130 
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«^S8* 



i \R^am^T>T-\-xM. itz*yifitd^k/M : t')X\ 9i--ta>tzhtu *nm bests / J-T5CHJ. h2&$:JimzmX$.H'<X>\< 
WMSrchenj, liA,<7);b1>>ij£T-4 &fc'ofc<7>IJ, (Jlffc< @SBS#a < »lfrofc r BB£Sfcy/.fc (*&*—;? I:t3<) 



7K-<>h 



r Bj©3£?A£->£VRAM 
frbg^JA/uT^^-l' SA* 

-ytursgurnSo ?-© 
fc«)ic-gii@^-h*^ l icb 

-KCi?f§:Sbri\3©fc 



(\Zt>k>H) 




~PV-h(DW 



CS32/2+VRAM128K BY *ftM 



-yw -*?'\±TJ~ 



► ^^751*35^-1/ 



m&(Dmm 



A ;Rffl 

A$ y-ABuX vfe-y/ 

b, n Tiiiiommfin 

C Pi/^CD^iSIDIK 

C(n) Abu/Nt>09&;tffl 

G W7Z>z>V^5 { J7ts. 

bl> 5*&E>0 
H JU7.Z17 

i . j h-ym 

k as<j©g3g©ftB 

L b^JU 

M S3.ID1S 

p an^ffl 

r %s&m/m 

S X37 

SI ?V7l,tziz : &(Dm& 

T WAffl 

X 7S/2j©8fflLt©<iAH 

x i y^tiommu^m 



7Q951xMm 



io ®mmmwc£./mmwm 

20-30 ^-AHUx^E^^-tz 
-^^$8!H§)/Ab'y htO 

40-50 ^^-r SA^->£ 

60-80 ^-AiJE^^fiJ-rs 

^7f ^©ffr£ 

60 8SS££ED©fEfi£ 
70 x*£?m£ 



80 A-SV-^ffrS 
90-100 ^-AHHffrfc/A 
fX=l7fl]}tlHt 

110 X=I7, &fik b^U££ 
©SSMSDJBfc/'y-AHE©* 

^/si&©Ab>v sraosx./ 

^250^/3 

120 7i/*©^B75lRllS^/ 

X37IHi 

130 A-<3.=I7<!:X=I7SS 

140 gfa©S8l©teBt££/ 

150 £EDR^/-^PSZ£ 

©sj o zfr&m/mmm/sm 
o zfy(Dftai/m&><DmM*m 

160 Al/'J b~WD®z./'a 
160(3©ff)^^Oii-r=>2o 
©iJ93»(MJ;tf-A2l<!:,- 
SSPS7©iJ0 3»)^S©tt 

170 t^te-VMS/SL^m 
£-*5*«e>ff200 / v 

i80 7*yti(D®W)m<&/-m 

1 90 7i/*©&«lT^E/;o 

7tm. a^/7^*©s^M 
Sr/^arosfo&b 

200-220 7^*tf&lJ5t©® 

230 ?'J75|aj£H>^7U7& 
5] *=l7M!Sf/$SSg/?T250 
MSXfc5]«l5RS/S*@» 

mm/A- hnmmma/y- 
atc-a-^js^ [*£««-r 

SS6]fi25D^ 



240 y-ATf-A-fflSC^'i' 

/frllO^O 

250 AUyMSOO&Jt^USi 

©e^tifr/b^Jk ^i'a, 

AYX:37M!Br/*Tl20'\ 

260 su^f-i!io^*-y-^=> 
Rsi^cA^infc su^-ffl 

270 -fcrnrnz-tomozfr 
yyib-vji-AtiwiDzfrm 

2B0-290 msvb~wom?ty 

300 srot^fflaong-y-:? 

310 X77-fKA5->f- 

*(ft4orK»z:») 

320 REM£ 



l>£Zt 



mm 



fr50©COLORSPR I T 
m<D%l<9-5-yt>tdo Z(Dao 

^©fc*N:fz\ x^^-rhao 
icR^tsnrL^7'^*©ai^ 

£*©COLORSPR ITE 

u^yy^-i s©e«aic@s 

©^at^TEottiK©*:. 

bfru o©^n^^Aicia 

fjl20©;*a7i3SI¥!lSttJSJ§ 



C<*y/--a:l*»by? 



£U7^-«g£*5rJ0A©AIC r a3U7S/*lorfcr5V*<©?j 
tSBUfcto. 8Atf r »<frttttU£5.f<!:g;tfc<e>U. *fc. f^fc* 

Aajtfe^afftfyyssiKttA/ca&afrofcL, tuawe. 

;r©J/U-XB:*tfc>3frfcUnSttA,, WB*r©L//-K-l-£*¥!IM5© 
ftr£C3:^;fc<¥£:3ttrm^£cs:3i\fc©r<»-";>^«rT#S: 
fc#a©ffSB'e^ri>*i/ct5. tra^, ita^-^, *3-*-5„ (*««) 
P. S. 35-$8tt»«fc' o 




* 



»$6 



TOWER OF ANGEL* i&tZ1k(r>t>tt)Vmt^*>(n^ *tS*tf>£CJ:ifcff>fc^fc„ *L."C, 2fi(;'i-/,£M77'>«t«-S«Lfc r HIQUREi 7 
P^5 J>nt«-S«Lfc r »*BATTLEj* ! lte£l^teSC<C-7fc„ T-ffT«(7) r 1*«kA3S^'y hv>jli6fi/;'ofco 
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a^tf^-r^fxts^o tot 

(MORO) 



ASH I KA3. FD1 

10 COLOR15,4.4:SCREEN5.3:DEFINTC-Z:OPEN" 
GRP:"AS#1 :R=RND(-TIME) : ONSTRIGGOSUB260 
20 PSET(20,96) :F0RI=1T028:A$=MID$(" r 3$ 
£*tt ?!/tj<A.<D fc?L>j;57**! j" , 1 , 1 ) :IFA$>" "THE 
NPLAY"V1505L32"+CHR$(67+RND(1)#2) 
30 PRINT#1 >A$; :FORJ=0TO50:NEXTJ,I:GOSUB3 
00:COLOR=(2.7.0,0) :C(0)=5:C(4)=5 
40 FOR I=0TO3:READA$:A$=MID$ (STRINGS (16.4 
8)+"1C".1 , -18*(I>0) )+"1C"+A$+"00":FORJ=0 
T015:A=VAL("&H"+MID$(A$.J*2+1 .2)) :B = 0:VP 
OKE30720+I*32+J.A:FORK=7TO0STEP-1 :IFA¥2 A 
K=1THENA=A-2 A K:B=B+2 A (7-K) :NEXTELSENEXT 
50 VPOKE30720+I*32+16+J.B:NEXTJ,I:SPRITE 
$(4)=STRING$(32,255) : COLORSPRITE ( 1 ) =79 
60 SOUND10.12:SETPAGE»2:CLS:LINE(0,0)-(1 
7.89) .1 . BF:DRAW"S4A0C14BM4.0D85G4E4R9F4H 
4U85C15BM30.5D10R10D5E20D5R10D10L10D5H20 
D5L10":PAINT(31.6),2.15:PAINT(55.6),2>15 
70 COLOR2.0:PRESET(80.0) :PRINT#1 ."HIT SP 
ACEGAME OVER":FORI=0TO29:COPY(80.I¥4)-(2 
24.1¥4) ,2TO(80,I+8) . 2: NEXT : FORI = 0TO1 :A=8 
0+I*72:FORJ=0TO215:COPY(A+J¥3.8)-(A+J¥3. 
39) ,2TO(J.100+I#32) :NEXTJ.I 
80 FORI = 0TO1 :COLOR2-I.0:PSET( 19-1, 1-1) , , 
TPSET:PRINT#1 ,MID$ ( "»X" , 1+1 .2) :NEXT 
90 SETPAGE.1 :CLS: LINE (21 .58) -(233. 182) .1 
.BF:FORI=0TO6:A=I#30+23:LINE(A.60)-(A+28 
.169) .7+I,BF:LINE(A.170)-(A+28.180) .14.B 
F : NEXT :FORI = 0TO5: 1 = 1- (1=2) :COPY(0 . 0) - ( 17 
.89) .2TO(I*30+44.60) ,1 : NEXT: COLOR 1 5 
100 PSET(28.8) :PRINT#1 ."PE/ML-****? -7°L"f 
9* t°7;-":PSET(96.24) :PRINT#1 , "HI-SCORE 
":PSET(80,38) :PRINT#1 ."CHANCE :"; :C0L0R2 
:PRINT#1 ,"¥ »":COLOR3:PSET(40.48) :PRINT# 
1. "LEVEL SCORE":SETPAGE,0:H = 200 
110 GOSUB300:S = 0:X = RND(1 )*7: L = 1 :T=170 :M = 
0:COPY(0.0)- (255.211 ) ,1 TO (0.0) :FORI = 0TO6 
:C0L0R=(7+I.7.7.7) : NEXT:GOTO250 
120 N=RND(1 )*2:IFS>99999!THENS=99999! 
130 C0L0R1 5. 0:PSET( 176.24) :PRINT#1 .USING 
"#####0";H:PSET(88,48):PRINT#1.USING"##" 
;L:PSET(176,48) :PRINT#1 . USING"#####0" ;S 
140 COLOR=(4.0.0.7) :K=RND(1)*7:IFK=X1THE 
N140ELSEPUTSPRITE0. (X*30+22. 179) .1 ,0:VPO 
KE30214.4:VPOKE30216.217 

150 B=N*2-1 :A=(1-N)*20:COPY(A+30.0)-(A+5 
0.20) .2T0( (X+B+1) #30-3. 185) :C=0 : S1 =0 :ONI 
NTERVAL^TGOSUB270 : PLAY"V1 5L3205CD" : INTER 
VALON:STRIG(0)ON:COLOR=(7+K.7.3.7) :COPY( 
0.1 00) -(208. 129) ,2TO(24.100) , .TPSET:A=6 




160 A=(A+1)MOD8:COLOR=(2,A,0,0) :GOTO160 

170 PSET(192.40) :PRINT#1 ," ":C0PY(24.1 

00) -(240. 129) .1 TO (24 1 100) : IFC = 0THEN200 

180 FORI=1TOC:IFI>1ANDX1=XTHENPLAY"V1505 

L32CDE"."V1406L32CDEF":S1=S1+L:C0L0R=(4. 

7.7.7) :COLOR=(4,0.0.2) 

190 A=X*30+22:FORJ=0TO29STEP2+L¥10:P=JMO 

D8 : SOUND 10.1 5 :S0UND5 >2:S0UND4 . P*2 : PUTSPR 

ITE0. (A+B#J.179+P) .1 .0:NEXT:S1=S1+1 :PSET 

(192,40) :PRINT#1 , USING"###0" ;S1 :X=(X+B)M 

0D7:IFX=-1THENX=6:NEXTELSENEXT 

20 A=X#30+23:FORJ=207TO160STEP-4: PUTSPR 

ITE0. (A. J) ,1 ,0: PUTSPR I TE2. (A. J +22) .1 .4:N 

EXT:LINE(A.170)-(A+28,176) ,7+X.BF 

210 VPOKE30208.170:VPOKE30216. 192: PLAY'S 

0M8000L4O4"+MID$("CDEFGAB",X+1 .1) :FORJ=0 

TO600:NEXT:VPOKE30208,165:VPOKE30216,187 

220 G=-(K=X) :LINE(A,170)-(A+28,176) .14.B 

F:VPOKE30214. (3-G)#4 

230 IFG=1THENS=S+S1 : A=0 :SOUND9 . 1 5 : G0SUB3 

00:GOSUB280:SOUND9.0:GOTO250ELSEPLAY"V15 

O3C8R32C8":A=6:GOSUB280:M=M+1 : COPY (18.0) 

-(25.7) ,2T0(1 76-1*1*16.37) : IFM<2THEN250 

240 COLOR=(2.7.0,0) :COPY ( . 1 32) - (206, 1 59 

) ,2TO(24.80) . >TPSET:COLOR15.1 :PSET(88.11 

6):PRINT#1." "MID$("fc*! -Nfe! Wt1MK*t %r> o 

fU* ¥-3 ?S6* *-*«:HM ". (L¥20)*8+1 .8)" ":P 

LAY"V15L1604CEG.FEDCEC","V13L804CEGCEC": 

FORI=0TO1 :I=-STRIG(0) : NEXT : BEEP :G0T01 1 

250 C0L0R=(7+K.7,7,7) :C0L0R=(7+X1 ,7.7,7) 

:X1=X:C0L0R=(7+X1 .2.6.4) : L=L+ ( L=99) - (G=1 

):T=T+(T>70) :H=H+(H<S)#(H-S) :GOTO120 

260 BEEP:C=C+1 :RETURN 

270 INTERVALOFF:COLOR=(4.0,0,2) :STRIG(0) 

OFF:PLAY"S0M10000O5C2":FORI=0TO600:NEXT: 

A=(X+B+1 )*30:LINE(A-3.185)-(A+20,205) ,4, 

BF:RETURN170 

280 FORI=0TO18-L¥6:GOSUB290:COLOR=(4,0,0 

,2) :NEXT:RETURN 

290 C0L0R=(4,C(A) ,C(A+1) ,C(A+2) ) : RETURN 

30 S0UND7,28:S0UND6.31 :S0UND9 . 1 5 : SOUND 1 

0.15:SOUND3,0:FORI=0TORND(1 )*4: FORJ=0TO7 

0:SOUND2,J:NEXTJ,I:SOUND9,0:RETURN 

310 DATA 3B473B4F8F1F1F3F2341C18181C1E3F 

F , 3232727E3E 1 C , 2A2A767E3E 1 C , 2A364A6E361 8 

320 ' — Release on Sept. 20. 1991 — by YK 
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JI!Shfc„ r ^-'T-yn=iU2 J ciJ|g4|5iyna>T-M7 5'>*l»5-®1tLf; r B£*fi«jf. 4 AT-|§Ri;e&LfcU-;*A<T-#-5 r DRIVESWHur- 




X7tt-h 



RO SPORT 



~13-)MDBW~ 



ES3ES32/2+RAM8K BY Prof. 26 



*mV75lttS*-y 



OsWimi 



x^^-rhB« 






>S 



AS, BS iteH 

f aa(iSHB-e~2) 

G MJtf-AAtMJtf- 

H JU 7.37m 

I > J Jb-^ffl 

K ^ofcSgil 



N ^b'ftSAR 

P jaLfcUHKC^I'l' 

-±H©£lt) 

S Xf-fy^AM 



?n^A*« 



l hh^-kcmussiss/S: 
?na©ffie/iiaefflss/ 

E M&A.m(DAt)/i&m(DJK 

/77<v7xmm^>m.mm 

4 §S^-r/iftH©^^/K 

m/b-uts-Amm^xtic 

5 v^yy^tm^v* y 

6 7-J^-i^Wv^7 

7 JW^RPeTOItg/il^fflS 



vtzt 



<*>L?Tmi?V"?l*V 



£38H8B, S<l3:zi>x7.SClS)^ry-A< / fOCSaiUrUfc„ L/ 
frU 9B«t© r THE BADM I NTONjfclirmnfctllBCXS 

<mWZ^1ttl'&1Z, r /KKS>S>BVf'^— ftOAK^UUjt. %;t 

rfel«fc#£5b%x3££IS|B]i;&A,e<!:!glo:3. H©(pf33fe£l8S 
nfc<iP>lySrraffUo«l\/Sofco rfcTHE BADM I NTONj 
©B-5#BtU5frofc©?, f <CS*6»#ot.^= (Prof. 86) 




SCDMff 

b mmmncDtioy^/mi 



w1z— vHS 

i^—yoyj'—^ 




PBOSPORT. FD1 

1 SCREEN1 .3:CLEAR700:WIDTH16:COLOR15>4.1 
:KEYOFF:DEFINTA-T:FORI=0TO4:FORJ=0TO7:VP 
OKE1408+I*64+J.-255*(J<2) :NEXT: VP0KE82U 
+1. 55+1*2: READS$:SPRITE$( I )=S$:NEXT 

2 INPUT"GA,*"'?";N:IFN<10RN>3THEN2EL.SECLS: 
FORI=0TO33:A$=A$+" -" : B$=B$+"*9" : NEXT: A$ 
=A$ + "— -1— 2-- 3*-- 4>— 5-- 6— 7— 8"+STRING$ 
(21 i "-"J :B$ = B$ + "E?*7*" + STRING$(42."5T ) :L 
OCATE0.10:PRINT" PI P2 P3" : S0UND7 .40 
:SOUND3.9:PLAY"T90L8O5V13SM20000" 

3 SOUND6.20:T=0:A=0:G=0:K=0:L=PMODN:X=12 
0:Y=44:F=RND(1)#6-3:IFSTICK(L)THENLOCATE 

3,1 :PRINT"»??<"F:VPOKE6915,0ELSE3 

4 SOUND9.0:K=K+1 : LOCATE . 7 : PRINTMID$( A$ . 
K,16)MID$(B$.K,16) : FORI =0TO40-F*20 : NEXT : 
IFX>623-8*KANDG=0THENLOCATEL*5.P¥N+12:PR 
INT" ***":PLAY"05C2":G0T08ELSEIFSTRIG(L) 
ANDK>53THENG=G-(G<3) 

5 IFGTHEN7ELSES0UND9,13:A=1-A:S=STICK(L) 
:Y=85-Y:X=X-(S=3)+(S=7)+F/2:G0SUB6:G0T04 

6 PUTSPRITE1 . (X.Y) ,L*7+1 .A: RETURN 

7 T = T+1 :X=X+(4-A)*F/8:Y=44-6*T+T A 2/4:A=G 
:GOSUB6:IFT>23ANDY>40-(A=3)*8THENSOUND9, 
13:SOUND6.5:PUTSPRITE0. (X-4 . Y- (G<3)*4+6) 
.14.4:S=100*K/3+25*X/6-2570:LOCATEL*5.P¥ 
N+1 2: PRINTS : S0UND9 . : IFS >HTHENH=S :M=L+1 E 
LSEELSE4 

8 P=P+1 :IFP=18*N/3THENPLAY"FCDEFR2":PRIN 
TSTRING$(16,61)"REC0RD"H"cm PLAYER"M"W 
IN" :IFH>895THENPLAY"CFFG6E16F4": PRINT" t*# 
ULA.S5< ! !"ELSEELSE3 

9 IFSTICK(0)=1THENRUNELSE9:DATA"0P9=2p** 
^ % ST"."lT?:H086vqA3*">"*XhPX(0880'"a**" 

."$:i^-3Y='" ,"*y laa-c 
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KICK! KICK! KICK! 



EE3ES32/2+RAM32K BY RmfciE 



*rV9'*r"j9'3rV9 



>mm\z&*<r-v 



mmnmm 



A ?y>lffllS3*ffl 

AS, B$ zy^-f^JW 

m 

AD V~»l§©«*JA^ffl 

I . J ;Hffl 

PI, PB S7U^-© 

su Yvvfgro^i^it 

Affl(7D^5AfirBSUM 



?a^A»f& 



10 mmmfe/zy^MW 

20 T.^^-fSHO^UT 7 

30 VvVIg^X^E'J^BSiA 

fc 

40-50 £-fSA/©«S 

60-70 X-OJb-^XV^ 

80-90 f»#*ij£ 

ioo~i20 zy^^b-jw-y 



130-420 Vi/>I 



Vi/>fg»?f8 



SHC000-SHC05E 



SHC05F-SHC0B1 

SHC0BE-SHC0BD 
BAS I C\(DWM)\,-?y 
SHC0BE-SHC1 3E 

yis^v-oftwimm 

SHC1 3F-SHC1 45 

SHC146-BHC1 63 

§lfS©#&£ 

SHC1 64-SHC1 A8 

SHC1 A9-BHC26E 

BHCB63-BHCBE7 

SfcDWe 

SHCEEB-BHC3EF 

=r-;i*BE 

SHC330-8.HC33F 

%mmyy 

SHC340-SHC3BA 
SHC3BB-SHC3AE 



SHC3AF~S,HC3B3 

SHC3B4 
SU&ffl9-^7 
SHC3B5-SHC3DB 

SHC3D9 

m^mm^uzi^yu^v- 

SHC3DA-SHC3DD 
SHC3DE-SHC3E0 



BHC3E1-SHC3E4 
SHC3E5 

SHC3E6-SHC3E7 
SHC3E8-SHC3EF 

?iwi?-©t«fffl9-^ 

SHC3F0-SHC449 



vtzt 



**>tmm 







33:«£0*WC20*<'b 

*n*6, £A©DUYO 

»#>*>*> <-5*>-Ctti\ Z 
$fc o (jRfflffilE) 



K I CK K I CK. FD1 

10 SCREEN1 ,2:KEY0FF:C0L0R1 
Z : WIDTH30 : FORI=0TO2 : READAS 
031 :B$=B$+CHR$(VAL("&H"+MI 
) ) :NEXT:SPRITE$(I)=B$:NEXT 
20 F0RI=2T031 :PUTSPRITEI, , 
30 AD=&HC000:FORI=0TO29:RE 
FORJ = 0TO32:A = VALC&H"+MID$ 
POKEAD.A:AD=AD+1 :SUM=SUM+A 
VAL("&H"+B$) THEN BEEP:PRI 
;I+22:END ELSE NEXT:DEFUSR 
40 CLS:FORI=0TO7:VPOKE776+ 
$( "FFAAD4AAD4AAD480" . 1*2+1 
E8204.&H74:PRINT "1P:0000 
2P:0000"; :A$=STRING$(30. 
PRINTAS; :NEXT:LOCATE0»22:P 
50 LOCATE5,5:PRINT"< KICK! 
":L0CATE7.19:PRINT r, CPUSH S 
RI=0TO1 :I=-STRIG(0)-STRI6( 
7.19:PRINTSPC(17) : 



5.0.0:DEFINTA- 
:B$="":FORJ=0T 
D$(A$> J*2+1 .2) 



0:NEXT 
A0A$.B$:S 
(A$.J»2+1 
:NEXT:IF 
NT "ERROR 
=&HC000 
I.VALC&H 
,2)) :NEXT 
<TIME : 
a") :F0RI= 
RINTAS; 

KICK! KI 
PACE KEY! 
1 ) :NEXT:L 



UM = 0: 

.2)) : 

SUMO 

IN " 

"+MID 
VPOK 
90 > 

1T09: 

CK! > 
: B :F0 
OCATE 



60 A=USR(0) :FORI=2T031 :PUTSPRITEI. .0:NEX 

T:A$=HEX$(PEEK(&HC3E2))+RIGHT$(**00"+HEX$ 

(PEEK(&HC3E1)).2) :P1=VAL(A$) 

70 A$=HEX$(PEEK(&HC3E4))+RIGHT$("00"+HEX 

$(PEEK(&HC3E3)) .2) :P2=VAL(A$) 

80 IF PKP2 THEN A$ = "PLAYER-2 WIN 1" ELS 

E IF P1=P2 THEN A$="DROW GAME ! ! " ELSE A 

$="PLAYER-1 WIN !" 

90 LOCATE15-LEN(A$)¥2.12:PRINTA$; :FORI=0 

TO9999:NEXT:LOCATE0.12:PRINTSPC(30) ; :GOT 

040 

100 DATA 030F1F3F7F7FFFFFFFFF7F7F3F1F0F0 

3C0F0F8FCFEFEFFFFFFFFFEFEFCF8F0C0 

110 DATA 307A585A5A78330F3D7E037DFEFF7E0 

0000C5E1A5A5A9EECF09C7EC13E7F7F3E 

120 DATA 00307A585A5A79370F397E837CFEFE7 

C0C5E1A5A5A1ECCF0BC7EC0BE7FFF7E00 
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,, SS <«ft*>w»8fii] <«p*>a*js~ © r d s # 3 o j= <%m>wms<i$m&>ft±mi<m)&>=ftmm / ® r f> ? v -j ? 7. 7 j= <s#m>x«ffi 



fg* 



li<**»>aiJ)R-<!!fe*«>S*iJKS 




130 DATA CD900021B5C3CD30C321D9C30671AF3 
2E5C3772310FC3E9032E6C33E3C32E7C33E.1056 
140 DATA 4832E9C33EAF32EDC33EA032E8C332E 
CC33E0A32EBC33D3D32EFC3CD64C1CD46C1 . 1 1 DD 
150 DATA 3E0832E5C3F3219FFD11AFC3010500E 
DB03EC3329FFD216BC322A0FDFB3AE6C34F.1100 
160 DATA 211218CD52C33AE6C3B72843AF32D9C 
3CDD50032DCC332DAC3AFCDD80032DBC3DD. 1 1F2 
170 DATA 21E8C321DFC3CDBEC0AF3C32D9C3CDD 
50032DDC332DAC3AF3CCDD80032DBC3DD21 .1334 
180 DATA ECC321E0C3CDBEC0CDA9C118AD21AFC 
31 19FFD010500EDB0C93ADAC3FE07280AFE. 1272 
190 DATA 062806FE082802180BDD7E013DFE103 
81CDD7701FE03280AFE042806FE02280218.097C 
200 DATA 0BDD7E013CFEDF3003DD77017EB7200 
83ADBC3B728183EA03D77FE503809DD7E00.0DB0 
210 DATA 3DDD77001807DD7E003CDD7700CD19C 
1C9F33ADEC38787C604DD770221E8C33AD9.0FE6 
220 DATA C387874711001BB72804132310FC010 
400CD5C00FBC9C5065010FEC1C9C53AB4C3.0D84 
230 DATA 010000CB7F28010487CB6728010CF57 
9A847F1B03C32B4C3C1C9E5D5C521F0C316.0F3C 
240 DATA 0A7EB7280B01090009157AB720F3182 
AAF3C77233D7723CD46C1 FE2038F9FECF30 , 0C9C 
250 DATA F57723AF773E0F237723AF77233C77C 
D46C1 E6033C23772377C1 D1 E1C921 F0C301 , 0EF9 
260 DATA 081BDD21F0C33E0AF57EB72006CD3FC 
1C33FC2DD7E043DFE0230 023E0FDD7704DD.0E4D 
270 DATA 7E083DDD77082806CD4FC2C30DC2DD7 
E07DD7708DD5606DD7E0182DD7701DD5605.0E1F 



280 DATA DD7E0282DD7702CD4FC2DD7E02FEF83 
80DAFDD7700DD7704CD4FC2CDE8C2AF32D9.1215 
290 DATA C3CD63C2AF3C32D9C3CD63C2DD7E01F 
EA0200CDD3606FFE521C1C3CD30C3E1FE4F.1316 
300 DATA 200CDD360601E521C1C3CD30C3E1110 
90019DD1903030303F13DC2B5C1C9F3DDE5.0E8A 
310 DATA E5C5235059010400CD5C00C1E1DDE1F 
BC9E5FD21E8C33AD9C387875F1600FD19DD.11C2 
320 DATA 7E01FE50DAE6C2DD5602FD7E0192300 
2ED44FE10D2E6C2DD5601FD7E00923002ED.10DD 
330 DATA 44FE10D2E6C2AFDD77063AD9C3B73EF 
F20023C3CDD7705AF3CDD7708DD770721DC.1031 
340 DATA C33AD9C3B7280123DD3606007EFE012 
808FE022804FE082006DD3606FF1812FE04.0BFE 
350 DATA 2808FE062804FE052006DD360601180 
0E1C9E5C521CDC3CD30C3DD7E05FE01201C.0D1B 
360 DATA 21E1C3CD40C33AE1C34F210618CD52C 
33AE2C34F210418CD52C3181A21E3C3CD40.0F36 
370 DATA C33AE3C34F211D18CD52C33AE4C34F2 
11B18CD52C3C1E1C9C5D506067E235ECD93.1000 
380 DATA 002310F7D1C1C9F3E57E3CB72720067 
7237E3CB72777E1FBC979CB3FCB3FCB3FCB.10CB 
390 DATA 3FC630CD4D002379E60FC630CD4D002 
3C9F3DDE5FDE5E5D5C5F53AE5C33D280532. 1 165 
400 DATA E5C31810CD64C13ADEC3EE0132DEC33 
E0832E5C33AE7C33D32E7C3200E3E3C32E7.103D 
410 DATA C33AE6C3B73D2732E6C3F1C1D1E1FDE 
1DDE1FB00000000000F079C060A0B000C0A.0E7A 
420 DATA 0D00080000460100081009000A000D0 
00200 0302091 00800 0A000D00 00 000 00 0.00D3 




8HANDS 



KS-AVX 



E23E532/2+RAM16K BY MIJINKO-SOFT ►ifiU c 7Dli37^-y 



mnomm 



S mwirtz® (7Uf I'-tCOMl ©£ 1 50 fflBO^fRtf 

wtn) t"j7btz\\m ^(Djw-yim) i60 ¥o^tta*^6=i>tf^ 

A(n) 7,y=5>-iV-mn\zm. 10 EEiSS/X^&ffiSHS (COM££COM3©i^¥ I BO 7ly(V-ft1li*±VZ> 

ymm ss/oi-rhx^tz-y^^ 70 ^^-r kcek^a 190 avtra-^tfg^izr 

A$(m, n) X75KSA /X^i' SA^-^Bfflg 9->S§Ur^&U©^« 3ftxDfflJl/±l;fE>ttfc}i©jsS 

B(n) ^©WlKl&bJi 20 yZ-VlXD^V^WW 80 Qi^m^-^mfoZfo 200 M<D±VTmz£Dm7Jk 

^irrri^Hnia^u-n? -ym& 90 t.^ys/^-vss t&T.y^^^ns-ymw 

-©^fr&js&ttaefroro 30-bo #©7.7^^ sa-$>- ioo 7.7^-f s©g£n<-r wmLtz&cDmm/^mm/ft 

~7©ii) y-T*-^^® 5(?©ais)/}§©75^ # p^£ 

C(n) ^©SIOgHnB;? 30 ^U-YI'-©^©^ ©St, IIIfM]fHb/PLAY£ 210 HifcDW£-*Sfc!3fcb 

UYI'-frbSBftt^toOrO -Vt 1 '-^^*^^ • i§^ fflSBte/ttfrbi&toSfrlSS ^"tz-y^/^DtB^Mb 

~3©ii) 40 7^-fi'-©£¥©A5' no mzTVisttZ)/?*? t/^foxy^-i^mz/mm 

D ±y'6nfcfi©IS ->«SBttt-*ftOC90g[5l i/tX^tz-^a^/^)^# S/WM«pS/i"J7WE-fr^ 

E IllifiSSffl g(COMl©£¥©A£- IPO ^U-f^-frfJlS^b 'JP^bllffiMSf/^-A^T 

.I s J, K, L JU-^ffl MtJS) I'V-r&tfni^lBO'sfR^ *iJ;g=>*S7&bft230'\?l«<$ 

p, p$(n) mmmm so yit-tv-tcoM}® 130-140 7;u + -© r 0j~ 220 mssi/T/'Trc^uT' 

r iiisffl £¥©A^->££eJxg r 9j+-©A*¥iJS urnsfr^^'J^uru 




230 mTimmfe 

250 Xvlz-VmMWV'J 

260 mmmyy 

270-280 7.^-f hA5>-V 
?— S'Vn'SXZW&i-Zdi) 

'290 ^©ft^fuBtSi^A^ 

300 lltx-^ (fi80rii*- 



WitV'{ ; 5K^tj.t.Z?) tzizz. 

K r o j tag i/rfci^ri^© 
u </3oi>rsun 

(MORO) 



vtzt 



*ss 



'.(Df-A-e^-ffift&zmz 




IWWynTtt 



££&. ^©SSICrttigO^o 30-y-AB, «ffi"C3"£\ JS 
/viTuKScfc-p&fcfflfcftOfcurt-,, CM I J I NKO-SOFT) 




,0» ^ttjnuuwiKiFr^" 



BHANDS. FD1 

10 SCREEN 1 .3.0:COLOR1 . 1 , 1 : KEYOFF : WIDTH 

32:CLEAR8000:DEFINTA-Z:DIMA$(23.31 ) ,P$(1 

8) :GOSUB250: LOCATE 12, 11 : PRINT"PLease"STR 

ING$(3.29)CHR$(31 )"Wait ! " : LOCATE 12 , 1 3 : PR 

INT"K1tt15»":FORI = 0TO23:FORJ = 0TO31 : AS C I , 

J)="00000000":NEXTJ,I 

20 FORI=0TO31 :VPOKE224+I,VAL("&H"+MID$(" 

0000008344281000100804020408101010284483 

00 0000001020408040201010" .1*2 + 1 .2) ) :NEXT 

30 FORI=0TO2:FORJ=0TO31 : READA: ASC 1*8. J ) = 

RIGHTS ("00000000"+ BINS (A) .8) : NEXT J. I 

40 FORI=0TO2:FORJ=0TO3:FORK=0TO7:FORL=0T 

07: MI DSC AS (1*8+2. J*8 + K) . L + 1 . 1 ) =MID$( AS ( I 

*8.L + 16-J*16+(J¥2)*40) .8-K.1 ) :NEXTL.K. J . 

I 

50 FORI=0TO2:FORJ=0TO1 :FORK=0TO31 :FORL=0 

T07:MID$(AS(I*8+J*2+1 .K) . L+1 . 1 ) =MID$(A$( 

I*8+J*2> (K+16)M0D32) .8-L.1 ) :NEXTL. K.J.I 

60 FORI=0TO2:FORJ=0TO3:FORK=0TO1 :FORL=0T 

015:A$(I*8+J+4,K*16+L)=A$(I*8+J.K*16+15- 

L) rNEXTL.K.J.I 

70 FORI = 0TO15:READX.Y.A:PUTSPRITEI. (X.Y) 

.0,A:IFA<8THENA(I)=A:NEXTELSENEXT 

80 FORI = 0TO18:READP$(I) :NEXT 

90 FORI=0TO23:FORJ=0TO31 : VPOKE14336+I*32 

+J,VAL("&B"+A$(I.J)) : NEXT J. I 

100 FORI=0TO15:PUTSPRITEI. .1 : NEXT: FORI =0 

TO7:B(I)=0:NEXT:FORI=0TO3:C(I)=2:NEXT:E= 

0:PLAY"V15T120O4":R=RND(-TIME)*4 

110 FORI=0TO7:PUTSPRITEI+8> . . A( I ) +8 : NEXT 

:GOSUB250: LOCATE VAL(MID$(" 15201 51 1".R*2+ 

1.2)) . VAL(MID$(" 1411 091 1",R*2+1 .2)) :PRIN 

TCHRSd )+CHR$(92 + R) : LOCATE 13, 11 :PRINT"U? 

ti-ff)":P=9:GOSUB260 

120 IFR>0THEN160 

130 FORI=-1TO0:I=( PEEK (-1 051 )=255ANDPEEK 

(-1050) =255) :NEXT : S=9: FORI =0TO7: IF ( PEEK ( 

-1051 )XOR255)=2 A ITHENS=I: 1=8 :NEXTELSENEX 

T 

140 IFPEEK(-1050)=254ANDS=9THENS=8ELSEIF 

S=9THEN130 

150 GOTO180 

160 S=RND(1)*(C(0)+C(1)+C(2)+C(3)+1) 

170 FORI=0TORND(1 )*300:NEXT 



180 B(0)=(PEEK(-1047)=251)*(C(0) >0) :B(1) 

=(PEEK(-1049)=251)*(C(0)=2) 

190 F0RI=1T03:B(I#2)=(RND(1) >.5)*(C(I) >0 

) :B(I*2+1)=(RND(1) > . 5 ) * (C ( I ) =2) :NEXT:D=0 

:FORI=0TO7:D=D+B(I) :NEXT 

200 FORI = 0TO7:PUTSPRITEI + 8, . . AC I ) +8*(B( I 

)+1):NEXT:LOCATE13.12:PRINTS"!":P=S:GOSU 

B260:FORI=0TO300:NEXT 

210 IFS = DTHENLOCATE13.13:PRINT"*tU!" :C( 

R)=C(R)-1 :PUTSPRITER*2+C(R) . ,0:PUTSPRITE 

8+R*2+C(R) . .0:P=10:GOSUB260:FORI=0TO200: 

NEXT:IFC(R)=0THENWCE)=R:E=E+1 :IFE=3THEN2 

30 

220 R=(R+1 )MOD4:IFC(R)=0THEN220ELSE110 

230 FORI=0TO3:IFC(I) >0THENW(3) =1 :NEXTELS 

ENEXT 

240 GOSUB250:FORI=0TO3:LOCATE12.10+I:PRI 

NTCHRSC49+D" "; : P=1 1 + 1 :GOSUB260 : PRINTMI 

D$("7°K+"-COM 1 COM 2 COM 3 ",W(I)*6+1.6 

) :P=15+W(I) :GOSUB260:FORJ=0TO400:NEXTJ.I 

: FOR I =0T0 1000: NEXT: GOT0 100 

250 LOCATE11 ,9:PRINT"i i":FORK = 0T 

03: LOCATE 11 , 1 + K : PRINT" I l":NEXT: 

LOCATE 11 .14: PRINT" ' "':RETURN 

260 PLAYPSCP) :FORK=-1TO0:K=PLAY(0) :NEXT: 

RETURN 

270 DATA 2.2.1.2,4.3.4.4.3.1.0.0.0.15.24 

0.0.66.76.242.129.134.249,129.129,254,66 

, 226 > 28 > 224 .0.0,0,0,0,0,0,0,0.0.0.0.0,0, 

0,7, 60, 192, 1,0.0.0.0,0, 0,0.0. 0.0,0.0.254 

,18.12.242 

280 DATA 0,2,5.5.7,9,9,17,18.34.34.68,13 

1, 1 28 .1 28. 1.0.0.0.0.0.0.0.0. 0.0.0, 0,240, 

8.4,242 

290 DATA 96.159,0.128.159.1.192.95,2.192 

, 63 , 6 , 1 28 , 255 , 5 , 96 , 255 , 4 , 32 , 63 , 7 , 32 , 95 , 3 

, 96 . 1 27 . 8 . 1 28 . 1 27 , 9 , 1 60 > 95 , 1 , 1 60 , 63 , 1 4 , 

128.31 ,13.96,31 ,12,64,63.15.64,95,11 

300 DATA L16GD,L16CA.L8A.L16EG,L16AC,L8G 

.L16DG.L16GC.L16EA.L8G16R16CD.L16AR16.C. 

L16EAC8R4.L16AC8R4.L16EG32R32G8R4.L16GDC 

8R4 . L 1 6EAEC8 . L 1 6ACR8CE , L 1 6ACR8 . E , L 1 6ACR8 

CD 
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nnn _J~~ n 



m&omm 



A, B, CD, L J. K. 

L, NU R, T, U ;Hffl 

A$, B33 BGMffl©^ 

50 

CM $>ti>it&7nvt> 

M(n, m) lIffi©^0>S 

n yu^txDmm 

NA Ht±©¥S£ 

NM(n) »JE¥» 

P :7LY^ffl^O>K 

RK R2 Ab7h^Hk 

SD$(n) ^>h*©x- 

SK ^®75(q]ffl 

sl mxy—vm 

X, XK Y, yi Jay 

XL, YR, XR -JUvi? 

XS *-x-i"^A2)ffl 



-?W5bM 



10 H 

m.wm/PSG(D$m% 
20 ie5ysisBs,'^i«iossg 
a? 



UfoT 




CS32/2+VRAM64K BY KAM 



>muyj\t^^-v 



30 ^-<V-|lJi0iA*7t©JiS 

40 ^-rhJi/*/^ 

50-70 ^-^©x-^© 
li^iA^/7.7^— v©3Stf 
80-130 ^-AHuf©ftf3t/ 
^Y7-iiJOiA^©l^pJ 
140 Xx-^'^'J^WS 
150 y-ATf-A-OfJS 
160-180 Xf-f'^, KU^J 

-©A^saa 

190 ^Xx-v^'J^©*!^ 
200-210 IVf-f^ 

220 vyis-imm 

230-270 ^'n^^ftirti 

•SMS 

280 Ab<7K©^(-££?|!5 

290-300 AbyK ^t-v 



vtzt 



1 l IT0CP? 



MNR(£'ySx< S^U-)rS'7^1.^l/rufeKA2UCHANt 

^fcTR££Ax;wcofcu<tSorw^uri>&£ec!Si.oiifcx- 
Ar. tifcg££«8fc*su£#«icAor, a(wc3a<6iv\7o 

Clio 1 ^@£'^xCX6B000£Ho^r"^tf(68ia&CBJtUi), MS 



X£J»ottr5ri3A/<!:5CJ:#ofc£g5o 
MAKOTCX Kofc<t„ (KAM) 



:7KA-rxur<nfc 




NJINES Presented by (CAM 



!j290CS5A°U'7 h©x- 
Ar'ttlgZctCRGBCftfr 

rb*-5tE^-r<^5©r'B 

256<H,G^16fgbri6ii?5[c;0 

n L/ii©^MA^c^stt-r- 

^a^Atf^od: HIS left 




N I NES. FD1 

li CLE AR5BB:C0L0R1 5. B.B: SCREENS :0PEN"GRP 

: - ASi1 :DEFINTA-Z:DEFUSR=SH98:U=USR(B) 

26 SL=19:Dln M ( 4 .4 ) .SD$ (SL) .NM< SL ) : XR=1 8 

7:YR=48:XL=7:P=1 : A$="T1 5BL1606S8M9BB8" :A 

1$=-T15B05L16V12" 

JB Rl=4:R2=3:ONINTERVAL=12GOSUB288 

41 PSETI78.8B) :PRINT#1 . "H» Z"l>»-i »U4»" 

: SRC (86) I'by KAt1-:FORT = BT01BBB:NEXTT 

58 F0RI=2T011 : REAOA . B . C : COLOR= ( I . A . 8 . C ) : 

NEXT:F0R1=1T0SL:READSDJ(I> . NK ( I ) :NEXT 

68 SETPAGE.1 : CLS : FORI=BT0228STEP28 : L INE ( 

1.8) -(I. 26.26) . 15.BF:NEXT:PLAYA$.AS.A1$ 

78 C=2:FORI=8T0224STEP28: LINE (1.2)- (1*24 

.26) .C.BF:C=C»1 : NEXT : SETPAGE . 9 

8B CLS:NA=8:PSET(89,38) .15:PRINT#1 .USING 

■ROUND #«" :P 

91 1=1 :F0RY=1T03:F0RX=1T03:NL=I-1 :N=VAL( 

MIDSISDS(P) .1 . 1 ) ) :MX.Y)=N 

1B8 COPY(28«NL.B)-(28«NL*27.27) .1 TO (28 

"X + XL -2S«Y+YR) .8 

118 COPY(28«N.8)-(28"N»27.27> .1 TO (28«X 

♦XR.28»YtYR) .B:IFN=8THENX1=X:Y1=Y 

128 1=1*1 : NEXT: NEXT :X=X1 :Y = Y1 :CM=M(X.Y) : 

LINEI91 . 126 ) - ( 1 15 . 150 ) .1 1 .BF 



138 PSETI89.45) . 15:PRINT»1 .USING"NEXT • 

#";NMlP)-NA:INTERVALON 

148 K=8:F0RI=1T03:F0RJ=1T03:IFM(J.I)=KTH 

ENK=K+1 :NEXT:NEXT:G0T019B 

158 IFNM(P)-NA=8THENPLAY"V120E406":GOT02 

28 

168 XS=STICKI8)ORSTICK(1 ) : IF ( STRIG I B )ORS 

TRIG(1)I=-1THEN88ELSEIFXS=BTHEN168 

178 IFXS=3ANDX<3THENX=X*1 :SK=1ELSEIFXS=7 

ANDX>1THENX=X-1 : SK=2ELSEIFXS=5ANDY< 3THEN 

Y=Y*1 :SK=3ELSEIFXS=1AN0Y>1THENY=Y-1 :SK = 4 

ELSE168 

188 0NSKG0SUB238.248. 258. 26B: GOT0 138 

19B BS = "CDECD£CDE8-:PSET(1 1 B . 17B ) . 8 : PR IN 

T«1 .-GOOD!":PLAYBS.-R16"»BS:FORT=BT015BB 

:NEXTT:PSET(11B.17B) :PRINT#1 .SPC(S) :IF P 

<SL THEN P=P>1 :G0T08BELSEINTERVAL0FF 

288 PSET16B.165) .B:PRINTtl . "CONGRATULATI 

0NS!";SPC(49) :"ALL ROUND CLEAR!" 

211 BS="L805EEDCFEDCEEEEE2":PLAYB$."T15B 

R16"«BJ:G0T021B 

228 PSETI87.165) .B:PRINT#1 . "REPLAY=SPC" : 

F0RI = 8T01 :I = - (STRIG (B)ORSTRIGd ) ) :NEXT:P 

SET (87. 165) :PRINT#1 .S PCI IB) .-GOT088 



238 R=M(X.Y):L=M(X-1.Y):M(X-1.Y>=R:N=R:M 

(X.Y)=L:X=X-1 :G0SUB27B:X=X»1 :N=CH:G0SUB2 

7B:NA=NA»1 :RETURN 

241 R=M(X+1 .Y):L=M(X.Y):M(X»1.Y)=L:N = L:ll 

<X.Y1=R:X=X»1 :G0SUB278:X=x-1 :N=CM:G0SUB2 

7B:NA=NA*1 :RETURN 

258 U=M(X.Y-1) :D=M(X.Y) :M(X.Y-1)=D:N=D:M 

(X.Y)=U:Y=Y-1 :G0SUB278:Y=Y»1 :N=CM:GOSUB2 

7B:NA=NA*1 : RETURN 

268 U = I1(X.Y) :D=M(X.YH ):M(X,Y+1)=U:N = U:M 

(X.Y)=D:Y=Y*1 :GOSUB278 : Y" Y- 1 :N=CM:G0SUB2 

78:NA=NA»1 :RETURN 

278 COPY(28«N.B)-(28»N»27.27) , 

•XR.28«Y*YR) ,B:RETURN 

288 SWAPR1 .R2:C0L0R=(1B.R1 .2.8 

298 DATAB.5.8.4.8.5.B.8.7.7.6.8. 

7. 7. 7. 8. B.B. 3. B. 4. 2. 8. 4. 2. 6. 812345867. 2. 

8B 1452367. 8. 142B65378. 8. 235881 647. IB. 481 

527368. 1 2. 425 1 67B38. 1 4. 4B 1352678.1 2. 3B 16 

54728.12.826415378.12.251B43678.14.4B216 

5378.12. 125836478. 14.827B41 356. 14.6B1478 

532.17 

388 DATA471B56328. 16. 164872358. 14.6B1724 

538. 1 6. 1436257B8. 16. 4 12387658.16 



TO (28«X 



:RETURN 
.5.7.1 
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♦Jjtjijljjt 
-*♦**»♦♦♦♦*♦♦ 

**♦**»••*•♦♦♦ 

ftl» i »»iiiii 



:::: 



DRIVE GAMES 



K^-O^-A-^- 



mill 



:::: 



EE3E532/2+RAM16K BY HASEMAKO 



► JS^75li37^-y 



MMMHMMIHMHi 



S8KD&HS 



l"*?^ KM 

x, y mmomm 

a$, b$ jw-ymmm 

cH(n) *p^5-5>mmm 

(n«+v5>^zi-K)=*l = 

*, 4=^5X5Y> 

F ?5*MSt:752'=»0 = 

h i A-rxa? 

I . J ;b-^ffl 

S(n) Xf-f-^AM 

( n li^T- -f^A^lt) 

SP g*©&Jg<<>0tf8C 

T I $>^M = 7.-17) 

w m<DJ^-ym^ 

WS(n) Jl©^^ffl=*lR 

J¥A©i7.^-:7v-^>X£ 

xx e*©ii^ist§» 

X(n), Y(n) ^ffls*1£ffl 



7n^A»fB 



10 wmwfe/mmmib/E, 

20 ^x-rj^A^ffl, *1>5 



30 m©7.^YKA^->£ 

K/B«5yS£39iJf&S 

40 *-e^^A^->£8£ 

+-f5^^©eiss 

50 -j^yiziffflmc./*^ 

60-70 ^»©SB»©ilSS/ 

80 Sm©JHH^if©g»«)SB 

90 REMX 
100-140 ^-AXY> 

ioo WMW-ywfcMm. 
no a©«^^iif/^figg 

[jEfrSglttf9999£ii3xfc& 

IPO gU©iiJtMff. PS 
130 gm©«t^ilii»Mii, 

mm 

1 40 gm©HHIM§K?!*/ 

A7t--A-]^l70 / \Jfl^[-& 
©fSBC^S+f^^^Ccfc 



150 REM* 

1 60 s^ttfimrofflJi 

170-lBO ^-ATT-A-iQig 

170 mmm/m(D75>yy 

180 5ffl^g/BFi^S/li 

-v«^/e2E0©+-A* 
+t70¥D t ybU/e5O'\^'3? 

190 {f^x^-ommv&w) 

S=>[Sefc*&6]?52jPff/7 

^'IS^/frlOO^tfl^'-JT 7 
&6]$>YAf§:£/AY3.=i;p 

goo mmm/m?mi5 

210 T^-CKM®,!*/? 
'JFXvtZ— 5>, 7.=17R^/ 
+-A;W?0¥ tfffi L/ /ffiO^ 



vtzt 



220 ^y-fe-ysm/A-f*. 

230 X^MKSS/ttffl 

->t-9 a^oris^o^) 



lis 



;!©:?□ ^Aii6ii@©£ 

©£E8Ufcfe©*:-?-5*:2)\ 
■ecDfettfr^n^AfciK 

ISX(n)i;Y(n)^A^d:^>7 

rnteuic^a^A^ii/ur 

151/ IV, (MORO) 



ffwwuav 



ttSXTKW 



MSXC2HDS. tUSJStfSS/jV ftttSBK. "3. 

<ir<brntzSM„ i,ax>. EHDiiBteane. v--tf 
*x-fx?9*-27v«*5wstf. -ero. S5-C7. ■? 

Uft-b, cnSSHSSttSCB. LKO/MDHHtfES. 

atott.v^-tfMSX»'6*s?K*fcueo<ftctt-f 

58iS„ APPLE£BA77'y®ftWfcl«U), toy 
ioB. v--ffl*?-f7v9CWbrPanason i ctf. 
?-7«. 3>;WSDAT*«5EySfr6f. *OLD I 
ESJia^XMOtU'Pffltti^T'l^SM, S»»Cft8. 
«»»?>, T-1V97. *v5#«iftf«az-ro (HAS 
EMAKO) 




*Y=£AN 



DR I VE8. FD1 

10 KEY0FF:CLEAR999:DEFINTA-Z:SCREEN1 >0:C 
OLOR1 .15.U:WIDTH32:DIMCH(255) .X(220) >Y( 
220) >W$(22) :PRINTSPC(203)"PLEASE WAIT" 
20 S(7)=-1 :S(3)=1 :F0RI=33T099:CH(I)=1-(I 
>64ANDK91)*3:NEXT:FORI = 161T0255STEP8:CH 
(I)=3:NEXT:CH(32)=3:CH(131 ) =2:CH ( 133) =2: 
HI=10800: I=RND(-TIME) 

30 A$=CHR$(255) :SPRITE$(0)=A$ + "ttlt"+A$ + A$ 
+"<<<": SPRITES (1 )="8ffBBTfT":FORI=0TO22: 
W$(I)=CHR$(27)+"L"+STRING$(I+1 . "♦" ) +"aXX 
XXXXb"+STRING$(23-I."*") :NEXT 



40 FORI=0TO3:READA$,B$:FORJ=0TO7:VPOKEAS 

C(A$)**8 + J.VAL("&H"+MID$(B$.J*2+1 .2) ) :NEX 

TJ.I:FORI = 0TO11 : FORJ = 0TO7: VPOKE ( 1288 + J + I 

#64) »VPEEK(1288+J) : NEXT : VPOKE82 12+1 . (1+2 

)*16+1 :NEXT:VPOKE8196.240:VPOKE8204.222 

50 T=0:C=1 :F=1 : GOSUB230 : CLS : PRINTSPC (202 

)"CDRIVEXGAME]":GOSUB220 

60 LOCATE0.0:FORI=0TO24:PRINTW$(11 ) ; :NEX 

T:LOCATE13.3:PRINT"<XGOX>":SOUND7.56 

70 PLAY ,, V14T163L804FV15GV14GV15GV14GV15G 

V14FV15GV14GV15GV14GV15GV14GA"."S0M8000T 

163L8O4CD2DCD2DDE"."S0M8000T163L8O3FG4G4 

G8FG4G4GGA":FORI=0TO0:I=PLAY(0) :NEXT 
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80 X=128:Y=170:W=11 :XX = :SP=0 :T=3000 : FOR 

I=0TO999:NEXT:SOUND1 . 2 :S0UND8. 1 3 :TIME=0 

90 '♦- MAIN -♦ 

100 W=W+RND(1)*3-1 :IFW=23THENW=22ELSEIFW 

=-1THENW=0 

110 LOCATE0.0:PRINTW$(W) :T=T+ ( ( 1 60-Y) A 2) 

¥80:IFT>9999THENT=0:F=0:LOCATE0.0:PRINTS 

TRIN6$(64.CHR$(70-O) ; : ELSEIFRNDC 1 )*(C + 7 

)>6THENLOCATEW+2+RND(1)*6.0:PRINTCHR$(16 

1+(INT(RND(1 )*12))*8) ; 

120 SP=SP+1+(STRIG(0)ORSTRIG(1 ))*2:IFSP< 

0THENSP=0ELSEIFSP>6THENSP=5 

130 XX=XX+S(STICK(0)ORSTICK(1 ) ) :IFXX<-4T 

HENXX=-4ELSEIFXX>4THENXX=4 

140 Y=Y+SP-SGN(Y) : X=X+XX : PUTSPRITE0 . (X.Y 

) :PUTSPRITE1 . (X.Y) : IFY¥190THEN1 70ELSESOU 

ND0.Y:ONCH(VPEEK(6144+(X+4)¥8+(Y¥8)*32) ) 

GOTO100.160.170.190 

150 *♦- SUB -♦ 

160 Y=Y+16:GOTO100 

170 SOUND8,0:SOUND6,30:SOUND7.40:PLAY"". 

"S0M20000O1C2":FORI=0TO0:VPOKE8196,RND(1 

)*256:I=PLAY(0) : VPOKE8196 .240 :NEXT 



180 SOUND7.56:PLAY"T180L4O4FR8B-"."S0M50 

00T180L4O4CR8F"."S0T180L4O3FR8B-R1":FORI 

=0TO4500:NEXT:CLS:GOSUB230:LOCATE12.4:PR 

INT"L"CRUSH]": LOCATE 11 . 8: PRINT" [CLASSX"CH 

R$(71-C)"XD":GOSUB220:GOTO50 

190 IFFTHENGOTO100ELSEIFC<5THENVPOKE8208 

.RNDd )*256:C=C+1 :F=1 :GOTO100ELSETI=TIME 

:IFHI>TITHENHI=TI 

200 PLAY"S0T180L8O4R8BR8G+R8BR8BA" ."S0T1 

80L8O3EBG+BEBG+BA"."S0M6000T180L8O4BBBAG 

+G+F+G+AR1" : FORI =0TO4000: NEXT 

210 GOSUB230:CLS:LOCATE6.5:FORI=0TO21 :FO 

RJ=0TO-(I=3ORI=9ORI=16)*200-(I=0)*2000:N 

EXT:PRINTMID$C<ALLXCLEARX[:CLASSXA]>",I + 

1.1); : BEEP: NEXT: LOCATE 10. 8 : PRINTUSING"CT 

IMEX#»##«»]":TI¥3600; ( TI/60)MOD60 : GOSUB22 

0:GOTO50 

220 L0CATE8. 12: PRINT" CPUSHXSPACEXKEY]" : L 

0CATE7,18:PRINTUSING"<HIXSC0REXC#^###]>" 

;HI¥3600; (HI/60)MOD60 : FORI=0TO1 :I=-STRIG 

(0)-STRIG(1 ) : NEXT: RETURN 

230 PUTSPRITE0. (0,-31 ) . 1 5 : PUTSPRITE1 .(0. 

-31 ) .1 : RETURN: DATA a , 8080C0C0C0C08080 , b . 

0101030303030101 .. .FF9999FFFF3C3C3CX.FF 

FFFFFFFFFFFFFF 
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NDP(P)MODEj«Bc^ 

£.l\5Z£1z\, 

(ANTARES) 



WARR I OR. FDl 

10 SCREEN1.3.0:COLOR15.0.0:KEYOFF:WIDTH3 

2:DEFINTA-Z:L0CATE12.8:PRINT"l>JS<8*n> 

2 8 FORI=0TO6:READA.A$:VPOKE820 0*I .A: FOR J 

=0TOLEN(A$ 1*2-1 :VP0KE512*I»64*J.VAL("SH" 

*MIDJ(AS,J»2H .2>):NEXTJ.I 

30 LOCATE 13. 10:A$=SPACE$ (26) :PRINT"8EE£E 

B"A$"DporsD"A$"AEEEEC"SPCl58>"tuJiT»."SPC 

(55)"1991S 8B 18B":B$="084C2A6E195D3B7F 

4 FORI=0TO15:LOCATE16.8:PRINT"JSD"16-I: 

READA$:FORJ=0TO31 :V=VAL("&H"+MID$(AS.J*2 

♦ 1.2)) :VPOKE14336*I»32*J.V:VP0KE14864*I» 

32*J-(J*16)«32.1NSTR(B$.HEX$(VM0D16) )«16 

♦INSTR(B$,HEX$(V¥16))-17:NEXTJ.I 

50 F OR 1=0TO12:SOUNDI.VAL (MI DS ("000000000 

000 16491 61 51 50022". I»2*l .2) ) :NEXT :GOSUB6 

10:CLS:P=0:S(0)=0 

60 LOCATE?. l0:PRINT"ol/"(t-"HEXJ(P*1)"tt k» 

n»uM»?":S(l)»S(»>«-1 

70 S = STICK(0>:SMS = 7)-(S = 3):S<P> = (S(P)tS 

»3)M0D3:S(P) = (S(P)-KPANDS<1 ) =S ( 0) )«S*3)M 

0D3:LOCATE1l . 1 2: PRINTMID$( " ♦"-*»"•(•* Vm 

•f^Trv7li/'i<^Trv?2".S(P)»10*l .10) 

81 B=A:A=STRIG(0) : IFB=0ANDATHENCLS : ONPGO 

TO90:P=1 :GOTO60ELSEIFSTHENGOSUB600:FORI= 

0TO199:NEXT:GOTO70ELSE70 

90 P=0:FORY=0TO18STEP6:FORX=1TO16STEP15: 

LOCATEX.Y; PRINT". i":LOCATEX 

. Y*5:PRINT" '": 

100 IFP>0THENFORI=0TO1 :A=P«2*I-1 :PUTSPRI 

TEA-1 . ( (PMOD2)«120*VAL(MID$("39504830304 

040". A. 1)1 «4. (P*2)«48*7-(P=3)«I»12t(P=20 

RP=4)«8) . VALCSH" till 0$ ( "76802390A0E 050" . 

A.1)).VAL("SH"*MID$("3A606970403030".A.1 

I ) :NEXT 

1 10 FORI = 1T04: LOCATEX.Y* I: PRINT" I 

I"; :NEXT:LOCATEX*6.Y*2:PRINTMID$(" 

»VXk*ki kim>?*»'5ltt)m^J".P«8*l .8) :P=P*1 

:NEXTX.Y:LOCATE2.10:PRINT"YYYY":T(0)=8:T 

<1)=8:P=0 

I 20 F0RI=1T02:L0CATE3.I«2:PRINTMID$("pgr 

s tu«tT«.*»57»-BI!W<".I»n-H.11 ) :NEXT:X= 

1 :Y=-(T(0)=0> :AS=STRINGS( 17.28) 

130 GOSUB600:BS="D"<LEFT$(A$.13)*"D"*A$: 

L0CATEX«15 + 1 .Y«6:PRINT"aEE oL-ft^ "HEX$(P 

*1)" EEB"AJB$B$BSBS"AEEEEEEEEEEEEEC": 

140 S=STICK(S(P) ) :M=X:N=Y:X=X-(S=7ANDY>0 

ANDX)-(S=3ANDX=0) : Y = Y» ( S= 1 ANDY >1 -X ) - ( S = 5 

ANDY<3) :IFX+Y»2-1=T(0)THENIFY=NTHENX=nEL 

SEIFY=20RY=2-XTHENY=Y*(Y-N)ELSEY=N 

150 B=A:A=STRIG(S(P1) : I FB=0ANDATHENT I P) = 

X + Y»2-1 :GOTO170ELSEIFSMOD2=0TKEN140 

160 B$="I"*LEFT$(A$.13)+" I"»AI:L0CATEM«1 

5»1 .N»6:PRINT". i"A$B$B$BSB$ 



:GOTO130 



170 P=1-P:ONPGOTO120:CLS:FORI=0TO1 :C(I)= 

VPEEK(6915+T(I>«8) : NEXT : G0SUB61 

180 FORI=0TO127:VPOKE6784»I.96:NEXT:FORI 

=0TO3:PUTSPRITE4«I. ( 48* I »32* ( 1*2 ) «64 , ) . 

1 .15:NEXT 

190 AJ = "S>EEEEEEEEEEEEB ": LOCATE 1 . : PRIN 

TA$A$: :F0RI»«T02:AS""D" + MID$("oKt- 

«u»UTTTTTTTTeuLA.HKHHHHHH".I«12*1 .12)*" 
":PRINTA$A$: : NEXT : AS="A£EEEEEEEEEEEC 

":PRINTA$A$ 
2BB FORI=0TO1 : VP0KE61 83 1 1»l 6 .49* I :H(I)=3 
1:(1(I)»0:N(I)=0:O(I)=0:P(II=0:R(I)=1-I»2 
:U(I)=0:XtI>=1 6* I«24 : Y < I > = 1 27 : XX 1 1 ) =0 : YY 
(I)=209:VPOKE6923*I»4.C<I):NEXT 
210 FORI=0TO16:FORJ=0TO1 : PUTSPRITE2+ J . ( I 
«R( J)»4*J«224.127) . . 10-R( J)«8-IM0D2«(IM0 
D4 = 3) :SOUN02*J«2. ( IM0D16) «16:NEXTJ . I 
220 P=1-P:IFT(1-P)=5AN0XX(1-P) >0THENXX(1 
-P)=XX(1-P)-1 :ONXX(1-P)MOD2GOTO220 
230 S=STICK(S(P) ) :IFU(PI >1 THENONUI P) -1G0 
TO29B.320.350.400.430 

240 Q(P)=1B:M(P)=(S>6ANDXIP) >0)-(S>1ANOS 
<4ANDX(P)<56) :IFt1(P)THEN0(P)=0(P)tl :0(P) 
=10-(O(P)*2MOD2*1 )«(0(P)«0D2) :R(P)=M(P)E 
LSEIF0(P)M0D2 = 1THEN0(P) = ( 1 -0( P) *2(10D2 1 «2 



250 X(P)=X(P)*M(P) :N(P)=(N(P)-(SnOD7=10R 

S=20RN(P) >0) )MOO10:Y(P)=Y(P)-(N(P)-5)»(N 

(PI >0)»4:IFN(P)>0THENQ(P)=13ELSEIFS>3AND 

S<7THENQ(P)=16 

260 S=STRIG(SIP) ) :IFSTHENP(P)=P(P)-(P(P) 

<31)»(1»(M(P)=0ANDP(P)MOO2) ) :VP0KE6246+P 

(p)*4+P«16.73+P(P)M0D4:S0UND2tP«2.263-P( 

P)«8:GOTO460 

270 IFP(P)=0THEN460ELSEO(P)=11-(P(P) >7 ) - 

(Q(P)=13)»3:W(P)=1 :SOUND2*P«2.0:IFP(P)<3 

1THENP(P)=1-IO(P)=15)*P(P)*8:GOTO460ELSE 

P(P)=0:ONT(P)GOTO310.340.380.420.450.450 

280Q(P)=11:U(P)=2:P(P)"10:N(P)=0:XX(P)= 

X(P)»R(P)»4:Y(P)=127:YY(P)=127 

200 XX(P)=XX(P)*R(P)»4:IFXX(PX-70RXX(P) 

>63THENQ(P)=10:W(P)=11 :YY(P)=209 

30 PUTSPRITEP. (XX(P)«4.YY(P)).11 . IB-RIP 

)«8:IFY(1-P) >95ANDABS(X(1-P>-XX(P) X4THE 

NU(P)=10:GOTO460ELSE460 

310 0(P)=14:U(P)=3:P(P)=4:XX(P)=-1:YY(P) 

= 19 

320 FORI = -(YY(P)=20)TO1»(XX(PX0ANDYY(P) 

■19) :LOCATE0.YY(P)-XX(P)»I:PRINTSTRING$( 

32.89-XX(P)»I) :NEXT:XX(PI=XX(P)»(1KYY(P 

)=16)«2) :YY(P)=YYIP)tXX(P) : IFYY ( P ) =21 THE 

NO(P)=10:U(P)=11 

330 IF(Y(1-P)*1)*8t4>YY(P)-XX(P)THENW(P) 

=10:GOTO460ELSE460 

340 Q(P)=14:W(P)=4:MIP)=0:N(P)=0:XX(P)-X 

(P)*R(P)«6:Y(P)=127:YY(P)=139 

350 M(P)-P1(P) + (S>5ANDH(P) >-4)-(S>1ANDS<5 

AN0M(P)<4) :N(P)=NIP)-(SPI0D7=10RS = 2)«(N(P 

)>-4)-(S>5AN0S(7ANDN(PX4):XX(P)=XX(P)*« 

(P) :YYIP)=YY(PX-N(P)»4:P(P)=ABS(M(P)*1 I* 

ABS(N(P)tl ) 

360 IFXX(PX-50RXX(P) >610RYY ( P )< 31 ORYY ( P 

) >190THENM(P)=0:N(P)=0:Q(P)=10:W(P)=11 :Y 

Y(P)=209 

J70 PUTSPRITEP. (XX(P)«4.YY(P) ) .3.9:IFABS 

(XX(P)-X(l-P) X3ANDYY(P)-Y(1-P)*(U(1-P)> 

12)»8>-l6ANDYY(P)-Y(1-PK32THENW(P)=10:r1 

(P)=0:N<P)=0:GQTO460ELSE460 

380O[P) = 15:U(P)=5:R(P)=niX(1-P)<31)»2: 

A=X(P) :X=X(l-P)-R(P)«20:A=A*(A»X)nOO2:N( 

P)=-20:Y(P)=127:B=2t(X<A)»4:FORI=ATOXSTE 

PB:X(P)=I:N(P)=N(P)*4t(N(P)=16)»36:Y(P)= 

Y(P)+N(P) 

390 PUTSPRITE2+P. (X(P)»4.Y(P))..13-R(P)« 

8:I = I*(X=IANDY(PX127)«B:NEXT:N(P)=-20 

40 P(P)=6:X(P)=X(P)*R(P)«2KS=7)-(S = 3) : 

N(P)=N(P)*4:Y(P)=Y(P)tN(P) :IFX(PX20RX(P 

)>54THENR(P)=-R(P) :X(P)=X(P)*R(P)»2 

410 IFY(P)=127THENN(P)=0:W(P)=11 :GOTO460 

ELSE460 

420 U(P)=6:PI(P)=7:N(P)=0:R(P)=1*(X(P)>X( 

1-P) )»2:Y(P)=127:XX(P)=17 

430 M<P) = (t1<P)»1 )M004:P(P)=4:Q(P) = 11*n(P 

)*M(P)*2:R(P)=-R(P) :XX(P)=XX(P)-1 :X(P)=X 

(P)t((S = 7ANDX(P)>l )-(S = 3ANDX(PX55) )«2:I 

FXX(P)=0THENM(P)=0:d(P)=10:W(P)=ll : G0T04 

60ELSE460 

440 Q(P)=1 1 :W(P)=7:GOTO460 

450 P(P)=6:0(P)=11 :W(P)=2+T(P) 

460 PUTSPRITE2*P. ( X ( P ) »4-R ( P ) « ( Q ( P ) MODI 1 

<5ANDQ(PX>13)»8.Y(P) ) . ,0(P)-R(P)«8:A=U( 

P) :IFA=0ORA>1ANDA<5TBEN220ELSEIFA=1ORA>6 

THENU(P)=0:IFA>9THENONA-9GOTO490.530 

47 A=Q(P)-11-Q(P)*14:X=ABS(X(0)-X(1 ) ) :I 

FX< 2-tAMOD20RX >4t ( AM002 ) »20RSGN ( X ( P ) -X ( 1 - 

P) )=R(P)THEN530 

480 Y=Y(P)+l6*(A=0)»4t(A*3)«10: IFY-YI1-P 

)t(a(l-P) >12)«8<-60RY-Y(1-P) )32THEN530 

490 S0UND7.55:A = 5-(Q(1-P) = 16ANDR(P)< >R(1 

-P) )«5:FORI=5TOP(P)«5t4:SOUNO13.0:PUTSPR 

ITEP. (X(1-P)«4t(IM0D2)»4-2.Y(l-P)*(I*2M0 

D2)»4-2) .6.22*R(P)»8:PUTSPRITE3-P. . .19+R 

(P)»8 

5 00 IFT(P)=6ANDP(P)=6THENH(P)=H(P)-(IM0D 

A = 4ANDH(PX31 ) : VP0KE621 4»H ( P ) *4*P« 1 6 . 81 * 

HIPIM0D4 



510 H(1-P)=H(1-P)+(IM00A=4) : VPOKE6230 tH ( 

l-p)*4-p.16.80»H(1-P)MOD4:IFH(l-P)=0THEN 

550ELSENEXT:SOUND7. 49: PUTSPRITEP. (0.209) 

520 IFT(P)=5AN0P(P)=6THENXX(P)=32 

530 P(P)=0:IFU(P)=0THENLOCATE6*P»16.3:PR 

INT"HHHHHHHH":IFVPEEK(6752X >32THENL0CAT 

E0.16:PRINTSPC(128) 

54 GOTO220 

5 50 VPOKE6916-P»4.209: FORI=Y ( 1 -P) T01 27 : S 

OUND 13.0: PUTSPRITEP. ( X ( 1 -P ) »4* ( IH0D2 ) «4- 

2.I+(I<2M002)«4-2) .6.22-R(P)«8:PUTSPRITE 

3-P.(X(1-P)«4.I)..19tR(P)«8:NEXT 

5 00 F0RI=Y(P)T0127: SOUND 13.0: PUTSPRITEP. 

(X(1-P)«4*( IM0D2) "4-2.1 25* (I»2M0D2)»4) .6 

,22-R(P)»8:PUTSPRITE2*P. (X(P)»4.I) . ,10-R 

(P)«8:NEXT:FORI=0TO99:SOUND13.0:PUTSPRIT 

EP. (X(1-P)»4+(IM0D2)«4-2.125*II*2M0D2)»4 

) ,6.22*R(P)»8:NEXT 

570 VPOKE6912*P»4.209:VPOKE6922*P»4.52:V 

POKE6926-P»4.48:LOCATE9.10:PRINT"oL"(t— "H 

EXS(P*1)"» Lt^l! 1":FORI=0TO999:NEXT 

5ea SOUND7.49:PLAY"T120S0M5000L8R8CCR4CC 

R8C2"."T120V15O2L8GABO3CDEFO28O3C2"."T12 

0V1 505L8GAB06CDEF05B06C2" 

5 90 FORI=0TO1 :I=-(STRIG(S(0) )*STRIG(S(1 ) 

))«(UPLAY(0) ) :NEXT:GOTO50 

60 FORI=0TO9:SOUND2. ( 3*1 IM0D256 : NEXT : SO 

UND2.0:RETURN 

610 FORI=0TO31 :VPOKE6912*I«4.209:NEXT:RE 

TURN 

620 DATA 208.0000030F1E1D3A343436171B0C0 

300000000C0F018E874343474E8D830C000 00343 

43434343434340000FFFF00FF00 00.52.0 000 000 

000000000C0C0C0C0C0C0C0C0F0F0F0F0F0F0F0F 

0FCFCFCFCFCFCFCFCFFFFFFFFFFFFFFFF 

630 DATA 166. 0000000000000000C0C0C0C0C0C 

0C0C0F0F0F0F0F0F0F0F0FCFCFCFCFCFCFCFCFFF 

FFFFFFFFFFFFF. 96. 0000000000000000 180C387 

87C3E7EFFFFFFFFFFFFFFFFFF.172 

640 DATA 8004108002401001 .240. 4A45F04A4A 

8810 000A85BE848484480 04AF5405E80A09E002A 

25203C40403E000A45C84E44443800241A4C4848 

488800848AF48080807800F41A1 41 01 0204000 

650 DATA 240.E341492A2A36220080006213729 

27A00 0200AA32222227000000255654542400E05 

050744A4AF 1060000004080800000 

660 DATA 000103030100070F1B1B1B00061E1C1 

00080C0C080008080B0B080C060606070 

670 DATA 000103030100030B1A1B1B03071E1C1 

00080C0C0800080C0F070808060606070 

680 DATA 0103030100030303030301010101010 

180C0C0800080808080808080808080C0 

t'il DATA 00060F0F06000B151C1A061F1938303 

8000000000000F0F00000000080C0C0E0 

700 DATA 00060F0F0601070F1F1319010303030 

70 000003030F0E080FFFF 808000000 000 

710 DATA 00000000010303010E1F1B1B000F0F0 

80 00000080C0C080008080C0C0C080 00 

720 DATA 00000000060F0F06397F6E6E0DFDFB8 

30000000000000000F0F00000000000S0 

730 DATA 00000000060F0F16396F77370C0E060 

40 00000000000 000C0F0B8D8E07F3F 01 

740 DATA 0000000003070703000707B707061E3 

C0 000000030B0B070E0C000C0E 0606070 

750 DATA 03070F0F0F0F0703000000000000000 

0C0E0D0F0D0D0A0C00000000000000000 

760 DATA F03F9F2F1D7A1O4A1D7A1D2F9F3FF00 

00000E0B854AA55AB55AA5488E000 0000 

770 DATA 000060F0F0601F7FF8FFDFEE7733010 

000000000000080800080C0F06080E0C0 

780 DATA 00000000000000000101010367F7F76 

70 0000000 000000082868E9C38C1FFFF 

790 DATA 18191B1B1D0E0703030303060606060 

E1898DSD8B870E0C0C0C0C06060606070 

800 DATA 2008010410020S0200050012000A002 

00410400880208020 020084010801004 

810 DATA 00000000000000FF000000FF0B0000F 

F00000000000000FF000000FF000000FF 
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LACK ROAD 



EE3EE32/2+RAM8K BY SX-SOFT 



► JETO!^^-^ 



mnnnm 



x Acomm^Ymmitm 

cms 

r"*a>iisa>*tt 

a tbii-r3^©*ij£SHi4 

A$ s©*1^^A^- 

yT'—^wt&zfcm 

C X3 7 7 

D A(D®®mft 

e Aron^A^-vtao^ 

E$ CHR$(E7)tfA3 

H A-YXP7 7 

I Jb-^ffl 

Nk V AOffilOVRAM 

7KU7.!tHffl 
P A9- 



R s&if©tiJiMzB 

S XT-f'^A*ffl 

T MJfl-Aftffl 



Jn051±Mlft 



;£A9-i*©gt£:£ 



©j^JBiss 



X!$S« 1 e©^^3t¥gSS^ 

^Cfi=»A©7.7°^-f SA£ 
->£R»PLAYX!S£=^ 

AS'-Vx-^f^Z^+l? 

^y^n^-y^mmn-ym 



•HH;^i»a©^^«A9- 
■&•*■< MUSS 

•xa^nJI^A^-M^g 

M£A#14&6A9-JSS!S» 

•Xzi7'<tA9-©S^«7.^ 
-1- ^A^Stt^lj-^A^Ccfc 

o A(Dwmm^m^mA(Dmm 






(®)'J7b-f 



• MJ^-A^gyoij-^u:? 

bY¥iJ^A;'Dtf£nK3.=!7 7 
SMb/raO^f&S^Aatfft 



liS 



■^mmiv-ycDmomb. mi 



©jliSgpJS 



vtzt 




**" tf *-f;<.<vrt 



^?*}~>// *>•#:«-->.</ 



tS!c r -5aS-o// Y>ofctf-o///j£*|S 

,1U3rr„ Z<D<f-AO?Tf-yt><t.UZ\& s£ 
Z£. -CttS-nXo (SX-SOFT) 



%AOMm%A(DWrJW-y 

w <o m*-9A(Dm^mA(D{m 

©VRAMPKLy7.ftg«gt 
•A9-JS£ffli!^¥y^iJS? 

uz^rnzjK'j-mm/^mm 

/ ; fj40 / \M/3 i ; 

•^-A7r-y(-¥iJ^=t>A9- 
if KT&BA-fXZIPMWf • 



mm^(DJ:x / T-yy-^yx 
t. 1 fr)f A(D±J.5--yy- 

— ir>2.», LOCATED 

OCATEw5^£©*M5[i, El 
1 ©J:5l:aori«o 838:7 

C<<, filCct^IBCHR 

(dz\ ct<^riorBLu 

y^ix(D^^y\zti.^m<D7,y 
a-iv^mmtsuzi^o zn 

lis *-VJbffl353ffigfrbT 
©BB#£ 1 fi^oTlc^P- 
Jb£t>- S *-VJU©^5ffigc 
IS&ffcC Hj(St)«SA^S 



IH 1 LOCATE<tlX^r-72/— 5r>X©^H5 



LOCATE x,y 



PRINT CHR$(27)+"Y ,r CHR$(32 + y)+CHR$(32 + x) 

LOCATE 15,10:PRINT "ABC" 
PRINT CHR$(27)+ p, Y*/ABC rr 



60 







^©ffiCtlK^AIKiltfSS 
A\ 1 iiJIAfflct^Cl^^- 



£S5„ (MORO) 



IBIS 1 fi 1 # A(7)xx^-»-^>X 




PRINT CHR$(27)+"L 



rr 



BLACKROD. FD1 

10 SCREEN 1 :WIDTH13:KEY0FF:C0L0R15. 1 , 1 : DE 

FINTA-Z:SPRITE$(0)="88!D7DD"+CHR$(4) :SPR 

ITE$(1)="88n:DDa":PLAY"V15":E$ = CHR$(27) 

:READA$:FORI=0TO7:DATA141C3C3E7EFEFF00 

20 VP0KE736+I.VALC&H"+MID$(A$,I#2+1 ,2) ) 

: NEXT :VPOKE8203. 161 : VPOKE8208 , 1 28 

30 CLS:FORI=0TO23:PRINT" I "SPC(9) " I " : NEX 

T:P=120:PRINTE$"YX CBLACK ROAD]" 

40 C=C+1 :P=P-1 :A=RND(1 )*1 5 : R=RND( 1 ) *9 : PR 

INTE$"Y& ":PRINTE$"L I "SPC(9) " I " : LOCATER 

+2.7:IFA=14THENPRINT"»"ELSEPRINT"¥" 



50 PRINTE$"Y& "USING"SC####POW###";C;P:S 
=STICK(0) :IFS=3THEND=8ELSEIFS=7THEND=-8 
60 IFX=<88THENX=96ELSEIFX=168THENX=160 
70 X=X+D: E=1-E:PUTSPRITE0, (X, 135 ) , 1 5 . E :N 
=(X-80)/8:D=0:V=6144+N+512+10:IFVPEEK(V) 
=92THENP=P-30:PLAY"O2C32":6OTO80ELSEIFVP 
EEK(V)=133THENP=P+20:PLAY"O7A32" :GOTO40 
80 IFP=<0THENH=H-(H<C)*(C-H) : PRINTES" Y . " 
+CHR$(34)+"HIGH";H:PLAY"O3L8ECELSE40 
90 T=STRIG(0) :IFT=-1THENC=0:GOTO30ELSE90 



CARD-BATTLE 



*-K»AM/ 




CS32/2+ VRAM64K E BY EVERESTER-SOFT ► 2!TOIi39^-S>' 



m&nim 



A JSot*-l<©±i-KS 

^(ffllOO0IIIlcl~E3)/<S5 
*-K©*-KS§/gJSjrs 

A$, B, B$, G, J, R$, 

t -mm& 

A$(nh B$(n) v CS(n), 
DS3(n) x>7-v>^'5a 

C I $(n) *-KiP§n© 

KH 

CMS(n) /^-KiPt n© 

Jb-K* 

DA(n) JMHtt-*; 

E$ i7^-7i/-^>7 

HP(n) HP 

I , QS, QW Jb-^ffl 

K £ofc*J-K©ft3I 

(i : Jtr§*-K,2 -.mztj. 

MC$(n, m) ?U-f1?- 

mfflni@ffl*-K€ 



MH(n) MAXHP 

NA$(n) ^b-Y^-S 

NC(n) #£*;£- k& 

OM TT-JbV-Yx-i--©^ 

JJ*- KH^Bf ©+-f VteJl/H 
ihfflCl CDci^^ih) 

QA iKROfc^-Ktf^f 

5*-K©^Sg^ 

S Xxi-'V^A^il 

TU £-> 

v mn.mt>-^mmm±7 

5^(0 : f=FRJ. 1 :ftt) 
W aWK(l :&5,S : 

(1 :**>tzjk ^E:««f) 

Z 7b-fl7-§§ 

ZC ^-KfflS^g? 



FNA(n)- 

©A;M 

FNB(n)- 

l©A*fl 

FNM(n, 

- 1 mm 



■SLM-n-l 



•T.T-'T'i'^n- 



m)- 



•m~n+m 



"7P^T7A8?lft 



id~7o yay=>ixwmik 
id x^nsiiis/iis 



po ^-ks©!^^ 

40 a-h*©IBf£fS&-&3!*/ 

50-60 ^-fhJUT 1 '^ 
70 KU*f-#S 

30-130 ^Ly-T+'-StS^ 

140 2)5— x-:?;nzyh 

150 $>->, 7±-xwmit 

1 60 aWKg^t^K 
1 70-330 *-K££5 
1 70-200 8r5A-K£& 
o/* - K £&o fcti^te? 
i— X ^-ViSST'x 
210 &r&n*-K©«=ii 

330-330 A'i/fcf- 
240-250 Or/S 
260 g'g-W« 

Vvfrd; • gjf II 

v^^cfc ii -/vjuvyK 



270 

280 

> 

290 

300 

310 

320 



C2K II 



330-470 l>fO^ 



330-350 iVx-O^T^E 
360 ^->»#g^ 
370-480 ^/X,©?-^ 
£;HS/?n^A#S7 
490-5 1 *-K©l£B£ 
490-500 S'Jtf-OFFif 
S/*-K-«U¥yS/*-K 
WR/ti-^y-?- 
510 KW*^/S'J3tf-» 
5/X'Vte-y,l£/£-V 

in* 

520-640 A-S£l£5 
520-530 S'J#— OFRJ 
5/*-K&LWS/*-K 

' ^-Kfs£fflHlJ:¥iJ£/}§£yti 

540 *-K®iIia§» 



550 
560 
570 
580 



yyvow, 

5tltf- 
7KVA- 



III 



Ow^f 



590 &&£• &!::■¥>;;•&& 

55 I— 

600-620 *— ;i/7-fx-<- 
83 0-64 Jt57yWJ 
650-810 tt-Oll/-^ 
650-660 MJ#-2'J'J/2 




'- ^jS^ •mmmmy[svy\-%Mmt 



> ^£f?t 



M 7 7 >* 'J v^-^*ffiffl7-V * ? 5 *fe-b * I- j= <S«m>;Si?t«-«Sm>fe*^g<tf 3EJft>H;lK;S • lUSSa 



lLU»>taS#l5;S<te#m>§-P^-<sKJi>»#ag$< 7 tEgJ?f>+)Hgt#<LUam>'(f J »^A • Hffll 
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670 mmyjyyy 

680-710 y^'tV-ZCDM 

720-770 37>Kffl»? 
7B0 MJA-OFFftStf 

y 

790 &r-g>?j-K£8^-y- 

7 

BOO X'>tz-9';lS+t^' 

BIO HPMAX+t^' 
820-830 7i-X ^-VSf 
7 

820 ii®^ l J7/^-l'+' 

/y-ymo'xm 

830 -J 7 — >15D (75«ail/=l 

840 •y-A*s7¥ij^-y-7 

850 KUtf-AA^rtor:? 
i-X £-ViSt7'\ 

860-970 tJ-^U-^V 
860-880 *-KiKR+t:7 
890-900 + -f>tzJbxi^ 

yy-y 

910 a-K+f-^-y-^c^u 

1'1'-Z©QA§B©*-K 
ffl^-Kg^ACftA) 
930 #Jf5A-K©£££ 

mtb^yy 

930-940 7*>V9, yy^j 

y ik iik wroy-rv^ii+t 
y 

950 Hfif&tt&UCeWr 

960 7K>A-©iUHPM^ 

970 HPHffl+t^ 



£L\<L:&©ffl3I 

.990 7?y2, T^-^IK 

Ilk IV 

iooo~io5o astttr^jb-x 

1060 YAPwy-yy 
1070-n 3D samtry-z^b-x 



ym 

ii40 nmmmj'&zyy 
H50-1360 =f-y 
1150-1170 /w->yx* 

1180 *-K€ 
1190-1320 ^-KCDlftB^ 
1230 ^-fhibx^Effl 
1240 iyf^V^f^ffl 

^b-^x-Z^bx'-^) 
125D-12B0 l>x-f>?x 
^fflDRAW^roGML 



i790©*tto C*— Ay 7 7 

y<jyjkmui;tz( r : gosu 

B7B0jJy»)o 

!Tii8or r sgjA' ;r vyv^j[c 



ff350* 

35Q Z=l : GOSUBB 
00: RUN 






:?P^A£«g-p9E$iiU 
>©giI£=%x.-g>!&gtf35-5 

$g5©ssconrBP58(Z) 
r Wa r r i orj©ff££#PS 

ci-XfljS^/Co 

Ji/-x>©ssc^nrB, 



-xV£t5*5/u<±:xHj5^7co 

z:©^D^-5ACoi\r^ic 

BUfcUCDHu 17850^7990© 
d^&Jb-xV^PUrttlMy 
&L><__n5;r<-:£:o i7850lcti7 
800©BB5ClL^rGOTOX 
£?X5^£7c U S990tt^©fu 
CMUr^ttCGOTOX^K 

5S<St«)bnrU5y7Jl/ 
-?>t$5ffl£tf\ tf^JL/- 

xvic-rsuft/fss&fefflt 
-use, bas i cz'&yy 

Jb-xVB^&USotfLUV 
BAS I C©1t^b-x>B. 



vtzt 



BAS I CrttfrWxJC^U 
*«ljSn),GOTOXttL^ 

(ANTARES) 



^fcfc- 




jtjp 



r, c^&igb^i/&:7D^Ar*»ffl^5&A>r5nb#ofco a^o 

tf9x-A£7^x7U£ltfc&3ae!:Bi;fc<,3s£. IVx-f>^© r TH 

e ENDjCQxti , -i'>€m^r<nt > as. «0#t5 o ta, ta*u 

*Aa «1S. 1SUU ir5*-. TTUSfd;, tTUo (EVERESTER- 
SOFT) 

CARD - BATTLE 

EVE RE5TER- SOFT 



PROQRAM 



TEST PLAY 



M. FUN APA 

M.YAMASHIRCYA 
H SHIMOkUfU 



CARDBATL. FD1 



IB CLEAR800:SCREEN1 ,0 
OR14,0.0:DEFINTA-Z:ZC 
ZC1 :E/=CHR$(27)t"Y 
"-»BT FUNADA":FORI=0T 
7:VP0KE776tI«8»J.VAL( 
2) ) :NEXTJ. I:QA=1 :TU=1 
2B F0RI=1T0ZC:A$="":R 
$(I)«"»-h*":A-12-LEN( 
$=A$»" ":NEXTJ:CMS(I) 
38 DEFFNA(A)=STRIG(A- 
A-1 ) :DEFFNM(A.B)=RND< 
TO720:A=VPEEKU> :VP0K 
40 F0RI=1T0ZC:READCI$ 
OMOTARO" :NA$(2>="0SAR 
I)=58:MH(I >=50:NC< 11= 
)-":MC$(1 .I)=CMt(20) 
= "<~DcaTf <" : IF FN AH )T 



UIDTH30:KEYOFF:COL 

26:DIMCMS(ZC) .CI$( 
RINTE$"»tPROGRAM"ES 
015:READA$:FORJ=8TO 

5H-*MI-0$(A$. J«2tl . 

Z = 1 
EADCMJ(I) :CM$(I)=CM 
CHSI11 ) :FORJ=0TOA:A 
=A$»CM$(I> :NEXTI 
1 ) :DEFFNB(A)=STICK( 

TIME )*A+B:FORI=520 
EI.A0RA»2:NEXT 
(I) :NEXTI :NA$<1 )-"n 
USAN":F0RI=1T02:HP( 
1 :F0RJ=2T08:I1C$( J. I 
:NEXTJ.I :SPRITE$(0) 
HEN86 



50 GOSUB670:FORI=0TO29:READA 

60 FORJ=65TC90:LOCATEI.10:PRINTSTRING$(3 

0-1. J) : IFJ=ATHENJ»90:NEXTJ.IELSENEXTJ:LO 

CATEI.10:PRINT" ":NEXTI 

70 PRINTE$"2(PUSH SPACE KEY"EI"5S1 991 

BY M.FUNADA":GOSUB780:FORI-0TO1 : I=-FNA(1 

] :NEXT 

Bl •••• PLAYER NAME ••• 

90 GOSUB670:PRINTE$"$)PLAYER NAME":PRINT 

EI" I SI PLAYER"E$"»."NAjn ) ;E$"-S2 PLAYER 

"ES"/.-NA$(2) :R$=-bbbbbbbbbbb":GOSUB780: 

FORI=BTO! :I=-(INKEY$=""):NEXT 

180 AI="":LOCATE6.20:INPUT"aS* t »5i»JCY 

/N]";A$:A=INSTR("YyNn".A$) : IFA= 1 0RA=2THE 

N110ELSEIFA=0THEN100ELSEGOSU8670:NAS(3)= 

NA$(1 ) :GOTQ140ELSE100 



110 J=10:FORI=1TO2 

7»CL? 

120 A$="":LOCATE12 

LEN(AI)0RI=2AN0A$= 

)=A$:J=15:NEXT 

130 PRINTE$"4S"SPC 

INPUT";n7» t3U>7M 

yNn".A$) :IFA=10RA= 

A$(l )ELSEIFA=0THEN 

140 VPOKESH2006.&H 

150 GOSUB680 

160 OM=0:GOSUB720 

170 ' ••• HIROU •• 

160 GOSUB780:IFNC< 

7IBl":GOSUB660:GOS 

190 A = FNM(2C1 ) :PR 

90:IFW=1THEN160ELS 

90 



PRINTE$ _ 4SSIS It 8tL"5 

J:INPUTA$:IFA$=""OR8< 
NA$(1 )THEN120ELSENA$(I 

8) :LOCATE6.20:A$="" : 
CY/N]":AI:A=INSTR("Y 

2THENGOSOB670:NA$13)=N 

130ELSE11B 

31 :VPOKESH2007.SH31 

ONWGOTO170.530.500 

• 

Z)=7THENPRINTE$". )to,t 

UB800:GOTO160ELSEW=0 

INTE$"«!"CM$(A) :GOSU88 

EIFFNAIZ1THENBEEPELSE1 



62 




s 



28 8 G0SUB79B: J =8 : FORI= 1 T073STEP1 9: LOCATE 
9.14*J:PRINTMIDS(CI$(A> . I . 1 9) : J« J + 1 :NEXT 
: G0SUB66B :ONKGOT082B .218 

218 G0SUB888:IFA>23THEN318ELSEIFA>15THEN 
29BELSE1FA>18TKEN28BELSEIFA>6THEN27BELSE 
IFA>4THEN268 

228 IFA=2THENA=FNM(8.1 ) : FORI=1 TOA : J=FNM( 
5>1) :G0SUB8BB:L0CATE9.14:PRINTUSING"li-?i: 
-HP»" « »U4<L«":J:HP(Z)=HP<Z)»J:G0SUB1«» 
8ELSE24B 

238 G0SUB81B:IFA=1THEN858ELSE1FI=ATHENNE 
XT :PRINTE$"B )»•>;-, *»»■>&«)-" : G0TO85BELSEPR 
INTE$"/)».-.lS*»»*5'f":GOSU8668:NEXT 
24 B A=FNM(6.1 ) : FORI = 1 TOA : J = FNM ( 5 . 1 ) :GOSU 
8888:LOCATE9.14:PRINTUSING"Ii-Tt-HP»* * I 
,~>I!";J:HPIZ)=HP<Z)-J:G0SUB1B1B:G0SUB84B 
:DA(Z)=0A(Z)*J 

258 IFA=1THEN85BELSEIFI=ATHENNEXT:PRINTE 
$" 8 lit,;-, ~,5<.,»J;":GOT065 BELSE PRINTES"/)? 
«•*-. if^it ":G0SUB668: NEXT 

268 IFA=5THENA=FNM!5.1):LOCATE9,14:PRINT 
USING"6«-,HPr" # 'V>S":A:G0SUB1B6B:G0SUBB 
4B:GOT085BELSEGOSUB1 888: PRINTES" . >8E-.Z* 
i7»v»U4<?5«l»-":F0RI = 1T02:HP<I)=MH(I) :NEX 
T:PRINTEI"/)T»i.l,'4U«>HP»*"ES"B)«».EA.E8-j£ 
":GOTQ85B 

27B IFA-7THENPRINTES". IS- !-»»», utllrtlllL*" : 
F0RI«1T07:SWAPMCS(1.1 ) .MCSII.2) :SUAPNC(1 
> .NCI2) :NEXT:GOSUBlB4B:GOT0858ELSEA"FNM( 
15.B) :L0CATE9.14:PRINTUSING"™-,HP<T ** 
<^&";A:GOSUB1B68:G0SUB848:GOT0B58 
28B IFA=12THENA=NC(Z) : FORI=8TOA : MCS ( I . Z ) 
=CMS(1 ) : NEXT: PRINTES". ) tt»i4»ll- ►»#* . »!)•>*" 
:GOSUB1B4B:GOT0858ELSEFORI = 1T02:HP(I)=HP 
(I)/2:L0CATE9,13*I:PRINTUSING"*P HPM** 
"MiHPID :NEXT:G0SUB84B:G0T085B 
298 IFA = 22THENGOSUB1 878: PRINTES". > »■>,!>- 1- 
»»*8l)"ES"/)L.*-j*->M»M1lT»ir-"E$"1 >tt»G» % e: 
"ES"2«ll.n°:,S % -,»lU«>/rTe-":FORaW = 8T08:MCS( 
QU.ZI="":NEXT:NC(Z)=8:G0T08SB 
38 8 SUAPHP11 ) .HP(2) : F0RI=1 T02 : L0CATE9 . 13 
♦I:PRINTUSING"*P HP=***":I.HP(I> :NEXT:P 
RINTES"1 1HP»*.l.>tl»Hi.S":GOSUB1B5B:IFA=17TH 
EN85BELSEA = 7:GOSUB66B:GOSUB88B:GOT027B 
318 IFA = 24THENAMHP(1)*HP(2))/2:HP<1)=A: 
HP(2)>A:LOCATE9.14:PRINTUSING"AS1itHP(r* 
**E,S-j&";A:GOSUB112B:GOSUB8l8:GOT085BELS 
EIFA=25THENA=FNM(5.1 ) : MH ( Z 1 =MH I Z > -A : LOCA 
TE9.14:PRINTUSING"MAXHP1T***E8?6"TMH(Z> : 
GOSUB1B18:GOSUB81B:GOT0858 
328 A=(MH(1 ) +MH (21 )/2:MH(1 ) =A : MH ( 2 ) =A : LO 
CATE9. 14:PRINTUSING"4<!1!:SMAXHPj!r***E,8i>S 
":A:GOSUB112B:GOSUB818:GOT0858 
33B ' ••• SHIBOU ••• 

34B PUTSPRITEB. (256.228) , 1 B : LOCATEB . 22: P 
RINT" " :BS = ": RES TORE 124B:FORJ=BT031 :REA 
DAS:B$=B$+CHR$(VAL("&H"tA$l 1 :F0RI=BT02: A 
=FNM<38.8) :B=RND(1 I «22*B : LOCATEA . B : PRINT 
"p":NEXTI. J:SCREEN5.2:OPEN"GRP:"AS*1 :FOR 
I-BT038BB:NEXT: IF HP 1 1 ) =< 8THENA=2ELSEA= 1 
358 SPRITES! 1 1 = BS : DRAWS4A8C3BM88 . 6B" : FO 
RI=BT01 :READAS:G=LEN(AS> : FORJ=1TOGSTEP3 : 
DRAUnlOS(AS.J.3) :PUTSPRITE1 .STEPI8.-161. 
15:PUTSPRITE3.STEP(8.16) . 8 : FORU=BT04B : NE 
XTU. J. I: PUTSPRITEB. (256.228 1 . B: G0T037B 
368 PRESETI76. 88) :PRINT#1 .USING"* PLAYER 
WIN";A:PRESETI64.12B) :PRINT*1 . USING'JUL- 
.iS- j»6*****" : TU : FORI = 1 T02 : PRESET (28 . 1 28 
♦I«1B) :PRINT»1 .USING"* PLAYER 1iZ**l 9'X- 
i/******P"; I .DA(I) .'NEXT I: RETURN 
37 8 FORJ=8TO7:COL0R=(14.J.J. J) :GOSUB368: 
FORQU«eT01B8:NEXTOU, J:COLOR=NEU 
388 CALLMUSICI1 .8.1 .1 .1 . 1 ) : CALLVOICE [333 
.39.36.3241 :T=8B:PLAY#2."T=T;V1505L2"."T 
=T;V1505L2"."T=T;V1204L4"."T"T:V1205L2" 
390 A$="EDC<BAGAB":A$(B)=AS+" >C<BAGFEFD" 
:B$(8)="R1R1R1R1"+A$:C$(B)="":D$(B)="" 
488 AS(1 )="E4>E40R4C4E<AGAB>L4CC<B2R4AB2 
>C2.CCFDG":BS(1 1 ■" >C4R4R2R2R2R1 Rl< E4>E4D 
R4C4E<AGAB>" : CS ( 1 ) ="CEGFECEDC< A >CGFAGFEC 
DB>C<EG<G>AFGEOC<GB":DS(1 ) = "C< BAGFEFDL4 
CEGFECEDC<A>CGFAGF":_BGM[1 ) 
418 AS(2>="L16G8EFG8EFG<GAB>CDEFE8CDE8<E 
FGAGFGEFGF8AGF8EDEDCDEFGAF8AGA8B>C<GAB>C 
DEFG" :BS(21="L16E8CDE8DCD<B>CDEDC<8>C8<A 
B>C8<CDEFEDE>C<B>C<A8>C<8A8GFGFEFGAB>C<A 
8>C<B>C8<BAB>CDC<B>C<AB" 

42B C$(2)=">C<G8GAEBGCAGECAGF":DS(2)="L8 
G4EGD4DGE4CEG4GEF4FDE4CEF4FED4D4" 
4 38 A$(3)="L8EEFED4R4R8ECAG4R4R8FGFE4R4R 
8FEFG4" :B$(3)="L8>CCDC<B4R4R8>C<A>C<B4R4 
R8ABBAG4R4R8AGAB4":CS(3)="ER4R8L8D£DC4R4 
R8GFGA4R4R8GAGA4R4R8BAB":DS(3)="GGGGGGR8 
GEEEEEER8EFFFFEER8EFFFFDDR8D" 
448 ASC4) ="R4CER4DGR4CER4EGR4FCR4ECR4FCR 
4DG":B$(4)="R4G>CR4<B>DR4<A>CR4<B>ER4C<A 
R4>C<GR4>C<AR4B>D":C$(4)="EGR4GBR4EAR4GB 
R4AFR4GCR4AFR4GBR4":D$(4)="L4CEGFECEDC<A 
>CGFAGF" 

458 A$( 5 ) ="E4. EEFEDC4 . CCOC< BA2>C2F202" : B 
$<5)="C4R4R8L16<B>CD8<B8A4R4R8GFE8D8A8AG 
ABB8>C8EDC8E8F8C<BL8AAGDGG":CS(5)="EC16D 
16EC<B4R4R8A16B16>C<AB4R4>CF16E16DFEC16D 
16EGFA16G16FEDG16F16ED":DS(5)="L8GGGGGGG 
GEEEEEEGGFFFFGGGGFFFFGGGG" 



468 AS(61="<G4. >GGAGFE4 . EEFEDC< BABG4 . GF4 

>C< B4 . B" : B$ ( 6 1 = "E4 . >EEFEDC4 . CCDC< BA2 >C2C 

<BABG4.G":CS(6)="C4>C4<L2BAGC4.D8EGD4.D8 

":D$(6)="L2EDCEFCFF" 

4 78 AS ( 7 ) »" >L4CGG . F8E2E . D8CC2C8< B8A >C2< B 

>C1":BS(7)=">L2C<8AGA4A8B8>C4<G4AGG1":C$ 

(7)="L4CEGDEAGEL8FGA4G2FGFED2E1" :DS(7)=" 

EDCEC4.D8E8D8E4F2G2C1" 

4 68 FORI=8T07:PLAY*2.A$(I) . BS ( I 1 . C$ ( 1 1 . D 
SCI) :NEXT:END 

498 ' ••• SETUMEI ••• 

C HU GOSUB78B:IFNC(Z)=BTHEN98BELSEK=NC(Z) 

:G0SUB868:GOSUB91B 

518 J=B:FORI=1T073STEP19:LOCATE9.14*J:PR 

INTMID$(CI$(A) . I.19):J-J*1 :NEXT:G0SUB66B 

:G0SUB888:G0SUB988: GOTO 168 

528 ' ••• TUKAU ••• 

5 38 G0SUB78B:IFNC(Z)=flTHEN98BELSEG0SUB86 
8:G0SUB91B:IFV=1ANDA=150RV=1ANDA>18ANDA< 
22THENBEEP:MCS(QA.Z>="" : NC I Z ) =NC ( Z ) -1 : PR 
INTE$".)£IJ>;b-l-*tt>6'j-?6":GOSU866B:GOT015BEL 
SENC(Z)=NC(Z)-1 :G0SUB92B 

54 8 IFA=23THEN6BBELSEIFA>18THEN598ELSEIF 

A>13THEN58BELSEIFA>5THEN56BELSE558 

55B IFA=1THENPRINTE$"/)i:ll)0-t'*IJ,'3*''«H)-|-"'l; 

"E$"B)~A.lALt.":A=FNM<9.1 1 :G0SUB63B :GOSUB 

66B:G0SUB1B2B:G0SUB8BB:G0SUB9BB:G0T02B8E 

LSEA=FNM(8.1 1 :G0TO99B 

568 IFA=8THENA=FNM(8.8) : G0T0998ELSE IFA=9 

THENA=FNM(1B.16> :GOT0998 

57B A=FNM(8.1 1 :PRINTE$". 1 8A.S»»> i>»»»S< 8?/z 

"ES"B>"; :PRINTUSING"MAX HP »" * »»*oe":A 

:MHCZ)=MH(Z)*A:GOSUB1B38:GOT085B 

58B IFA=14THENA»FNM(18.24) : G0T099BELSE IF 

A=15THENPRINTE$". 1 *«-, ^<CO^H"E$"8 I HP»" I 

4EiE8?«":GOSUB1B38:HP(Z)=MH(Z) :GOT085BEL 

SEG0SUB96B:HP(Z)=HPIZ)*5:PRINTUSING"7#«)H 

PIT,*** ~7.S";A:PRINTE$"/)HP#' > > 5»l'i<LI!":G 

0SUB84B:G0SUB81B:G0SUB113B:G0T085B 

59B IFA'19THENA=FNM(1B.1 1 : GOSUB978 : G0T08 

5BELSEIFA=2BTHENA=FNM(17.1B) :G0SUB978:G0 

T085BELSEA=FNM(28.2B) .-G0SUB97B : G0T085B 

68 8 IFNC(Z)=BTHENBEEP:PRINTEJ" . )UtlZltl-^ x 

ff*[nti":GOT062BELSEPRINTEI". 1 8CCJ.LA.2SI? 

»":OM=1 :FORI=1T07:LOCATE1 . I : PRINTSPC ( 1 3) 

:NEXT:G0SUB71B:G0SUB868 

61 B NC(Z)=NC(Z)H : IFOn=2THENKCS (NC ( Z 1 .Z) 

=CM$(23) :G0SUB71B:G0T016BELSEMC$(NC(Z) .Z 

)=MC$(QA.Z):GaSUB189B:G0SUB71fl:G0T085B 

628 NCI Z 1=1 :P1C$(1 .Z)=CM$(23) :G0SUB9BB:G0 

SUB66B:G0SUB8B8:G0T016B 

638 IFA»1THENA=2ELSEIFA=2THENA=3ELSEIFA= 

3THENA=6ELSEIFA=4THENA=13ELSEIFA=5THENA= 

21ELSEIFA=6THENA=22ELSEIFA=7THENA»1BELSE 

IFA=8THENA=24ELSEA=12 

648 RETURN 

658 ' ••••• SUB •*••• 

668 PRINTES"6(PUSH SPACE KEY" : IFFNA ( Z 1 TH 

EN66BELSEF0RQU = 8T01 :QU = -FNA(Z) :NEXT:GOTO 

78B 

6 78 PUTSPRITEB. (256.22B) . 1 : F0RI = 1T023 :PR 
INT:NEXT:RETURN 

688 CLS:PRINT"cb CARD bbbbbbdc"R$"d a"S 
PC(13)"aa"SPCni)"a a"SPC(13)"aa NAME 

a a"SPC(l3)"aa"SPC(11 )"a a"SPC(131 
"aa"SPC(ll )"a a"SPC( 13) "aa"SPC( 1 1 1 "a a 
"SPC(l3)"aa"SPC(l1)"a a'SPC ( 1 3) "aa'SPC ( 
lll"a e"R$"bbfe"R$"f " 

698 PRINTES"*3"NA$(Z1 :L0CATE21 .6:PRINTUS 
ING"HP***";HP(ZI :LOCATE18.7:PRINTUSING"M 



1 :PRINTE$"- COMMAND" 

"Rt"bbd":PRINT"a"SPC(131" 
*:PRINT"e"R$"bbf":PRINTE$". 
03i a":PRINT"a ->f> a": 
•:PRINT"ebbbbbf" 

:PRINTMC$(I .Z) :NE 



AXHP***";MH(Z> : 
788 PRINTES") 
a BY M.FUNADA" 

cbbbbbd":PRINT" 
PRINT'a B^SUa" 
718 F0RI=1T07:L0CATE1 . 
XT:RETURN 

728 Q=118:PUTSPRITE8. (15.0) .11 
738 IFFNA(Z)THEN76B 

74 8 S=FNB(Z) :Q=0t( (S=1 )«8)-( (S»5)«8) :FOR 
I=BT01B8:NEXT:IFS-BTHEN738ELSEIF0=11BTHE 
N0=118ELSEIFQ=142THENQ=134 
75B PUTSPRITEB. (15. 0. ) .11 :GOT073B 
768 IFQ=118THENW=1ELSEIF0 = 126THENU=2ELSE 
U = 3 

778 BEEP:RETURN 
788 IFFNA(Z)THEN78BELSERETURN 
798 IFA=10RA=40RA«80RA=90RA=1 10RA=140RA= 
150RA=160RA>18ANDA<220RA=23THENNC(Z1=NC( 
Z)»1 :MC$(NC(Z1 ,Z1=CM$(A) :K=1 iRETURNELSEK 
=2:RETURN 

S88 F0RQW= 1 4T022: LOCATES. QU: PRINTSPC (28) 
:NEXT:RETURN 

BIB IFHP(Z) >MH(Z)THENHP1Z)=MH(Z) :RETURNE 
LSERETURN 

628 G0SUB67B:Z=Z*1 : IFZ=3THENZ=1 :TU=TU*1 : 
IFTU = 88THENG0SUB1 1 88 : PRINTES" . 'USIIS »(.'»< 
ltl'«ia-l-'S,"E$"-10»-5;tS,«iL»S»":V = 1 1G0SUB6 
68:Z=B:GOT082BELSE15B 

83B IFTU = 1B8THENG0SUB1 1 88 : PRINTES" . Sili"* 
^7A.ffl»J: tt*<Lta*"E$"-&HP.MAXHP8 3»flllUt2":F0 
RI=1T02:HP(I)=HP(I)/3:MH(I)=MH(I)/3:NEXT 
:G0SUB668:Z=1 : G0SUB67B : GOTOl 58ELSE1 58 
ill IFHPI1 X 10RHPI2X1THENBEEP: BEEP: BEEP 
:VPOKE&H2BBE.&H61:GOT033BELS£RETURN 



858 G0SUB66B:GOTO82B 
S6B QA=1 :W=B:K=NC(Z) : PRINTES"! 19" 
R7B G0SUB898:IFU=1AND0M=2THENRETURNELSEI 
FU=1THENRETURN168ELSEIFFNA(Z1THENBEEP:RE 
TURNELSES=FNB(Z):QA=QA+(S=1)-(S=5):IFSO 
1ANDS< >5THEN878ELSEIFQA=BTHENQA=1ELSEIF(1 
A>KTHENOA=K 

6BB F0R0U=1T07:L0CATE1 .QU:PRINT" ":NEXT: 
LOCATE 1 .0A:PRINT"9":GOT087B 
898 IFZ=1ANDPEEK(&HFBEC)=1270RZ=2AN0FNA( 
4)THEN0M«0M*1ELSERETURN 

^88 L0CATE1 .QA:PRINT" ": PRINTES"" ! "SPC I 1 
3) :U=1 :RETURN 

918 AS=MC$(DA.Z) :F0RI=1T0ZC:IFAS=CMS(I)T 
HENA=I :I=ZC:NEXT:RETURNELSENEXT 
52 8 MCS(0A.Z)="":FORQS=8TO7-QA:SUAPMC$(Q 
A + QS.Z) .MCS(QA*QS*1 . Z ): NEXT : RETURN 
93B L0CATE9.14:PRINTUSING"S C" : NAS ( Z*1 1 : 
LOCATE9. 15:PRINTUSING"»* *• <JH> 9«y-Si»t" 
;A:PRINTE$"BX4t)LE" 

948 IFZ=1THENHP(21=HP(2)-A:DA(2)=DA(2)*A 
:RETURNELSEHP(1)=HP(1 ) -A : DA ( 1 1 =DA ( Z ) *A: R 
ETURN 

958 IFZ = 1THENHP(1 1=MH(1 1 : RETURNELSEHPI 2 1 
= MH(21 -.RETURN 

96 8 LOCATE9.14:IFZ=2THENA=HP!l )/4:HP(ll= 
HP(1)-A:DA(Z)=DA(1 ) *A : RETURNELSEA=HP ( 2) / 
4:HP(2)=HP(2)-A:DA(2)=DA(2)»A:RETURN 
978 PRINTES". )*«--^<U8i" : L0CATE9 . 16: PRIN 
TUSING"HP»",**n'i<L»";A:HP(ZI=HP(Z)tA:GO 
SUB81 8 :GOSUB1 828: RETURN 

SaB PRINTES". IS-F't. t^7l'8ia"ES"/)«*i<A.8l' 
7»" :G0SUB9BB:G0SUB66B:G0SUB8B8:G0T016B 
Wl GOSUB111B:GOSUB93B:G0SUB84B:G0T085B 
188B PL AY" T1BBL32V1507A08AD": RETURN 
1 8 1 B PLAY"T1B8L32V1 503A02AD" : RETURN 
1BZB PLAY"T12BV15L3201A02A03A04A05A06A07 
A08AGGFF":RETURN 

183B PLAY"T255V15L6405CDEFGAB06CDEFGAB": 
RETURN 

184 B PLAY"T12BV1506L32ED05B06D": RETURN 
•858 PLAY"T255L16V1502FEDC": RETURN 
18=8 HP(Z)=HP(Z1-A:DA(Z1=DA(Z)*A: RETURN 
•8 '8 PLAY" T2550SV15C64V14C*64V12D2": GOTO 
1148 

18 28 PLAY"T25506L16V15EFGFGAA2":GOT0114B 
1B98 PLAY"T255V15R406A64B1V13B1V11B2":G0 
T01 14B 

1 IBB PLAY"T2S5V1505L64CGEGCGEGCGEG":GOTO 
1148 

1118 S0UND7.183:S0UND6.31 : SOUNDS . 1 6-.S0UN 
D12.3fl:S0UND13.B:RETURN 
112B PLAY"T255V15L6405CGAFDBE": RETURN 
1 138 PLAY"T255V15L6407BAGFEDC068AGFEDC05 
BAGFEDCCCCDEFGAB06C": G0T0114B 
1148 IFPLAYIB1THEN1U8ELSERETURN 
1 15B ' ••• DATA ••• 

116B DATA 242424B81B242424.BBBBE71BB8E7B 
BBB.88B8B784B43F2424.BBB8EB282BFC2424.24 
243FB4B4B7BflB8.2424FC2fl2BEB88BB.283B383C 
383B2BBB.8B8BFB888888888B.7C28282828287C 
BB.FE5454545454FE88.FE5454545448E88B 
1178 DATA 6B28282B2B2878BB. BBBB5BA8A8A8A 
aB8.BBBBBBC8888888BB.8B8B7B88888878BB.BB 
CE7C3E7E3E6388 

118B DATA H''57°>S./lvC''-.!)7 , A'.?5v9. !/"«*? 
.thtl,?l/*-»i,?9v'!\ ,?1v1l .i»)l»9l .illC'-.?^* 
HI i ,l\H,?;r''h'^.?5v'7k.9vil.-.**i/l , -.*44.>»v7 
v'ltl .40*. 4E«». Mt.-L* > »/»• 5 J «».»-*?«<-. 2 
-«< .#«t°-,;»»< I 

1198 DATA 0E»«Hl-h'C,'.iH»3,4L*"0a-h''.8l» 
y»,HP«P*,»t'4<»5,t->Te^(IL0a-l''.8A.»U»,HP»»S» 
»5tl>'5.»tLli»-l'*.7*C,»5<9'*y-i/'t,»Eil3,L*4 , A. 
»'•.S')l-i/*E61t7L«'5a-^* .7»t, L»4'A.»HP»", JUIJ» 
OI7»,»l'4<»lto ; i,8)>tt.iii<0a-t-''.tl.'7etl-h''t, 
L-i'kmn- r.*f, l>H»t)i.TLt6tl.'i, -illLl'B*, »OLOU>», 
t)»SO(.>»-h» 
12BB DATA T*E, ^<9»X-i" ttllii:kfT*li . 7»C 

.»8')^i<^'•y-!/-S*lsil5;t^'•7»»4.^,»»''^»».^J:<5l' , 

U-V'-titlTll't^Ulkto-^ .L"4 , lO,JW!*yHP» , *»» 

5CU : i,5v*-<!S-t'».L>4»Jl»S-l-*)rVt!»i4*»r]?IL»'5 

.7*t.0"4''HlHP»»,»0')^7Li J ii:u , 3,tt*^7*tl-l-'.7 

tE, CHOLiif .tntiztfi^ti 

1218 DATA l»4'A.!lHP»' , n>6miT',*(.>4<t3.T*l)H 

PfS»''.L''4''i«)HPt4*ttui,ilH.l.'»-h* .7*tL'"4''4«) 

HP»VOIt»t)TTLt6.HPD-r-*»"'.m,UI!»»?7l,li.H 

PfSkfllZL, H'i< » i . HP»*iH£6, »L>4< »5 . HPH^ttll 

,(ro4<»s.im"'i»».tii6o7i.5a-h''t,e^ii.4''i6»».7»o, 

"7«*J 

1228 DATA Mitt, HPf ^0*A.L7, 4S1tSHP»>, tMCt 

S,SU6»(.>HP»'.»;Li(r'J.4e')«).ai'l!»l.'HPt~l.>*4L,4 

61tt. iu«"UHP» % , SIME85 

1.38 DATA 67.65.82.68. .66.65.84 

.84.76.69. ,,,,,,,., 

1248 DATA .81 ,82. 87.89. 1E. 38. 48. 8 

8.. 82. 87. B9. 15. 25. 53. 89. 52. 8C. 78. 88. ., . 
1258 DATA G2 HU2E2 RF4R2ERE BG2BL2BG1B01 
D2GDGDGDGH3 U2RFR2DR3ERERE R2EEUEUEUHG2D 
G D4GDGDGDUEUEUEFRERFD2GDFR2ERERERERUHL2 
G2 D2 F2 R2 E2 BE1 BR2BE2BR2BE2BR2BE2BR2 
BUI 

1268 DATA UH2LG2D3 F2REHLG3 D3FRFRRERE6F 
GDGDGDUEUEREERFDGDDFRE3RBE2BR3HG3D2FREUE 
U2EU E2UE2UDG2DG2DG D2FDFRE2 BE4BR4BE4 
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28 CLEAR5BB:SCREEN5.a.fl:C0L0R15,B.B;CLS: 

DEFINTA-W:DEFSNGX-Z:0IMZS(119).ZC(119).X 

(2B8).Y<28B).PC(2B) .LK99) ,X1(15),Y1(15) 

:DEFFNA=ASC(MIDS(D$.L>>-49:0EFFNX(Z)=Z«2 

.2*12 :DEFFNY(Z)"Z»2. 2*1 :0PEN"GRP:"AS»1 

58 F0RI=BTO7: READAS. -SPRITES! I )=AS:NEXT:F 

0RI=2T014:READA.B.C:C0L0R=(I .A.B.C) :NEXT 

4B F0RI=8T0119:Z=I/19.1 : ZS (I) =S IN I Z ) : ZC( 

I)=C0S(Z):NEXT:F0RI=BT015:READX1(I).Y1U 

): NEXT: FORI »1TD28:READLI(I) : NEXT: FORI =BT 

03:READTX(I).TY(I> : NEXT : FORI =8T06 : READMS 

(I) :NEXT:YS=-A8BD3BL23S4A=AA:D3U6G2E2F2 

5fl C0L0R,8:CLS:PSET(49,6B) : PRINT* 1 . "ROYA 

L NINE GOLF CLUB" : PSET (8B . 1 45 ) : PRINT»1 . " 

1991 Toxsoft":SC=8:H0=8:G0SU8378 

60 ' «»» T*~9 3EDE "«« 

78 C0L0R.B:FORI=BTO4:PUTSPRITEI. (B.217) : 

NEXT:CL=8:HO-HO»1:IFHO»18THENLINE(75.143 

) - ( 1 81 ,157) .B.BF:MS=" HOLE OUT ":GOSUB 

41B:G0SUB37B:REST0RE45B:GOT05B 

SB CLS:READPR.PO.PA.TR.LI.XT.YT.GX.GY.DS 

:L-1 :N=16:F0RI=1T0P0*TR:X(N)=FNA:L=L*1 :Y 

(N)=FNA:L=L+1 :N=Ntl : NEXT : FORI =BTOPA- 1 :X( 

N)=FNA:L=Ltl :Y(N)=FNA:L = L*1 : PCI I > =FNA : L = 

L*1:N=N*1 :NEXT:FORI=lTOLI:A=FNA:L=L*l :IF 

A=-lTHENLI(I+2B)=AELSELI(I*2fl>=A+16 

9B NEXT:F0RI = BT015:X<I>-X1<I)-(K12)«GX- 

( I >1 1 ) »XT : Y ( I ) = Y 1 ( I ) - ( I< 1 2 ) »GY- ( I >1 1 ) »YT 

: NEXT :R=RND< -TIME) :CX=INT ( RND! 1 )«3)-l :CY 

=INT(RND(1)«3)-1:X12BB)=GX»CX:Y(28B)=GY* 

CY:YA«S0R( (TX-GX)"2«(TY«GY)"2)»PR»5:A1=R 

ND(1>«4:A2=RND(1)»4:KT=RND(1)«1B 

1BB ' •«» S'jO lit* «»« 

118 LINE(4.8>- (251.21 11.12. BF:P=e:FORI=l 

T0LI*2B:A=LI(I):IFA=-1THENP=B:NEXTELSEIF 

P=8THENPSET(FNX(X(A) ) . FNY( Y ( A) ) ) .3 : P=1 : N 

EXTELSELINE-(FNX(X(A)).FNY(Y(A)1 1.3: NEXT 

•F0RI=BT0PA-1:A«I«P0»TR»16:PAINT(FNX(X(A 

)).FNY(Y(A))).PC(I).3:NEXT:F0RI=1T0TR 

128 A=15*P0*I:XX=FNX(X(A)>:YY=FNY(Y(A>>: 

PSETCXX.YY) .6:CIRCLE(XX.YY),1 .6:NEXT:PSE 

T(FNX(GX*CX) . FNY(GY»CY)),1 : L INE ( 75 . 2) - (2 

49.98) ,B.BF: LINE- C75.2) .15. B 

13B COLOR, 8 : PSET (88. 75 1.8. OR: PRINT* 1. "MI 

N"SPCI15)"MAX":PSET(88.65) : PRINTtl . "L"SP 

CI17)"R":F0RI=BT058:LINE(I«2«1B4.7B|-STE 

P(8,7),15*(I*29):NEXT:PSET(84,11):PRINT* 

1,USING"H0LE:# PAR:* ***yard" ; HO: PR ; YA 

148 PSET(1B8.25> :PRINT*1 ,USING"UINO: *m" 

:KT::AA=A1:DRAUYS:PSETU72.25):PRINT*1." 

GRASS: "; :AA=A2:DRAWYS:SH=e:G0SUB38B 

158 • #*« */■*!• «««* 

16B X="XT:Y = YT:G0SUB26B:G0SUB36B 

178 PUTSPRITE2.(FNX(X),FNY(Y)-1).15.5:SH 

*SH»1 :PM=29:MP=1 : PS=7 :G0SUB38B :G0SUB4B8 : 

G0SUB398:RL=(K*PM*211>M0D12B:PS=6:PI1=29: 

G0SUB39B : Z1 =8 : Z2= ( 25-CL ) / ( 1 -PB«2 ) 

188 Z1=Z1*Z2:X=X*ZSIRL)«PM/2BB*TX(A1)»KT 

/5BB«(CLOl5)*TX(A2)/1B8«(CL = 15):Y=Y-ZC( 

RL)»PM/2BB-TY(A1)«KT/5BB»(CLOl5)-TY(A2> 

/188«(CL=15) :SOUN0B.24B-Z1/2:SOUN01 .B:S0 

UN07. 1 9B : SOUNDS. -12»(CL<>1 5) :X(199)=X 



198 Y(199)=Y:A=199:Z2=Z2-1 :G0SUB31 8 :SS=7 

-B*1B:PUTSPRITE8.(XX»2-13B»SS*2.YY*51»(Z 

1/2)«(CL<>15)«SS),15.SS:PUTSPRITE1.(XX«2 

-13B»SS»2.YY-t51+SS).-(ZK>BORCL<>15) .SS: 

PUTSPRITE2.(FNX(X) .FNY(Y)-I) 

2BB P=POINT(FNXIX) . FNY1Y) ) : IFCL = 1 5ANDP=1 

THEN238ELSEIFZ1>BTHEN188ELSEIF(P=30RP=2> 

ANDZ2<-1THENZ2=-Z2/2.5:S0UND8.B:G0T018B 

21 B S0UND8.B:P=P0INT(FNX(X1 ,FNY(Y)):IFP= 

1THEN238ELSEIFP = 60RP=120RP = B0RP = -1THENM$ 

="OB"-PLAY"V1403C3":GOSUB418:SH=SH*1 :X*X 

T-Y-YTELSE I FP-1 1THENMS=" BUNKER" :G0SUB41B 

ELSEIFP=5THENMS="UATER HAZARD" : G0SUB41 B 

22B PUTSPRITE1 . (B.217) :XT=X : YT=Y :G0SUB26 

B:GOT017B 

238 PLAY"SM3B8B06G8L64GG":SS=SH-PR:SC=SC 

*SS:GOSUB38B:PUTSPRITEB, ( 8 .21 7 ) : IFABS (SS 

K4THENM$=MS(SS*3) :GOSUB41B 

2*8 GOSUB37B:GOTO' 7 B 

258 ' ««» 3D 3^1 D7«* ••« 

26B GOSUB358:SETPAGE.l:COLOR.3:CLS:LINE( 

3B.B1- (225. 21 1 ) , 12.BF:P=8 :F0RI=1T0LI*2B : 

A=LI(I) :IFA=-1THENP=B:NEXTELSEG0SUB31B:I 

FP=BTHENPSET(XX.YY> , 3 : P=l : NEXTELSEL INE- ( 

XX. YY) ,3:NEXT:F0RI=8T0PA-1 : A=I*P0 + TR-H6 : 

GOSUB318:PAINT(XX.YY] . PC 1 1 ) . 3 : NEXT 

278 FORH=»T01:FORI=1TOTR:A=15*PO*I:GOSU8 

31B:IFYY<15BANDXX>6BANDXX<195THENIFH=8TH 

ENLINE(XX-B/48.YY)-(XX*B/4B.YY-B).6.BF:N 

EXTELSEFORJ=7T08: CIRCLE! XX. YY-B) .B/2.J.. 

.3:PAINT(XX.YY-B).J:NEXTJ.IELSENEXT 

288 IFH = BTHENA = 28B:GOSUB31fl:IFPOINT(XX.Y 

Y)=2THENLINE(XX.YY)-(XX.YY-B/2) .7:LINE-( 

XX*B/12.YY-B/2.3).7:LINE-(XX.YY-B/2.6).7 

•PAINT(XX*B/1B.YY-B/2.3).7:NEXTELSENEXT 

298 SETPAGEB.B:FORI=2T0125:C0PY(I+64,155 

)-<I*64,36) ,1T0(I»2.211) , B :COPY ( 1 91 -I . 1 5 

5) -( 191-1.36). 1T0(255-I«2.21 1 ).B: : NEXT I: 

PG*POINT(FNX(X),FNY(Y)):PB=(PG=110RPG=5) 

■.PUTSPRITEB. 1 126. 281 -PB1.1 5. 1*PB: RETURN 

388 ' »»» 11'ti^ii »»» 

31B X2=XT-X(A) :Y2=Y(A)-YT:X1=X2«ZC(K)-Y2 

.ZS(X):Y1=X2«ZS(K)*Y2«ZC(K):B=YU6B:XX = - 

.l5»X1»(Y1*6B)t128:YY=Y1«2*158 

328 IFXX<8THENXX=BELSEIFXX>255THENXX=255 

338 IFYY<BTHENYY=BELSEIFYY>211THENYY=211 

348 RETURN 

358 D=99:A=2BB:F0RI=8T0114STEP6:K=I:G0SU 

B318:B=ABS(XX-12B):IF8<DANDYY<158THENC=K 

:D = B: NEXT :RETURNELSENEXT:K=C: RETURN 

368 LINE (88. 124) -(167. 179) . 15 . B:COLOR15. 

B • PSET (1B6. 132) , 8 . OR : PRINT*1 . USING" HOLE 

*"; HO: PSET (181 .148) ,fl. OR: PRINT*1. USING"* 

t*y»rii";YA:PSET(1B9.164).B.OR:PRINT*1 .US 

ING'PAR t";PR:GOSUB37B:GOT029B 

378 FORI=BT01 :I = -STRIG(fl) : NEXT : FORI ■- 1 TO 

B:I=STRIG(B):NEXT:R£TURN 

38B COLOR1 5. 8: PSET (92.39) :PRINT*1. USING" 

SCORE:*** SHOT:»*";SC:SH:PSET<136.53> .B: 

PRINT*l."CLUB:"riID$("1U2U3U4W1I2I3I4I5I6 

I7I8I9IPWSWPT".CL«2*1 .2) :RETURN 

398 PUTSPRITEPS-3,(PM»2»1B2.174-PS«16) .1 

3.PS-FORI=BT05B:NEXT:IFSTRIG(B)THENGOSUB 

37B:MP=-MP:RETURNELSEPM=PM*MP: IFPM=BORPP1 

=58THENMP=-MP :GOT039BELSE39B 



P, PG TK-JbCDtt,^ 

pb nyti-7z>y 

RL tt-ofifa 

SC XZ7 

SH ~>3'>KIS 

A, B, C, D ;Rffl 

AA ^EPfflilffl 

A3 xy^^hjw-yg. 

FNA, L, L I , N ?- 



48B GOSUB38B:S=STICK(8):IFSTRIG(8)THENGO 
SUB37B:RETURNELSEIFS = 30RS=.7THENCL=ICL»(S 
-7)-(S«S)*15-(PG-2) )MOD(15-(PG"2) ) :F0RI= 
-8T0B:I»-STICK(B):NEXT:G0T04BBELSE48B 
418 L=LEN(M$) : LINE ( 123"L»4 . 1431- (133*L»4 
.157) ,15.B:C0L0R15.B:PSET(13B-L«4.147) .B 
,OR:PRINT*1 .M$:RETURN 
428 ' *«* 7 % -9 »*•• 

430 DATApllP.plllp. '**' .ffltS.59.*." PO")") 
"."llpp ",B. 6. 8.3.7.1,2,4,8. B. 1,7.2.1,8 
. 6. B, 8. 1.5. B. B. 8. 4. 7. 7. 8. 6. 6. 2. 1.3,8, 3, 7 
,7, 7. 3, 3, 1,4. -1.4. -3. 3. -4. 1.-4. -1.-3. -3 
44B DATA-1.-4.1.-4.3.-3.4.-1.4.1 .3,3.-2. 
-1,2.-1.2.1.-2.1.8.1.2.3,4.5.6.7,8,9.18, 
11.8.-1.12.13.14.15.12.-1,8.-1,1,8.8.1.- 
1 . B .ALBATROSS . EAGLE . BIRDIE . PAR . BOGEY , DOU 
BLE BOGEY, TRIPLE BOGEY 

4SB DATA3 ,24,9.13,29,6.32.14,11,"<S5S3P2 
L2>59B7A7D9E<BB?E>a:G9E<A=A=C7A6S5=7<:0> 
KD7A576: 567381 >D3CE0F 1 GAL20?< 370.5 ; K49C49 
94 ;D<<B<7><98< 123456789: ; < H=1 8>?SAB>8CDE 
FGCB". 4, 48, 9.6.5B, 8, 38, 13. 5 
468 DATA" =Y5Y3U308C8 : 75 : 1 31 B2C5C : AA7ACAE 
BEFBH:G:E-BBK7W;08R6Q6O8H:H=?:<9=9>:3>>a 
>B'A- ><6I827<6>7AC7AR9U5>639647J480<<E6C 
D6; ?<? = < 1234X56789: ;<=?8A8C0E >=BBFG1BH I J 
KLMHBN0PQRNBSTUVWSB".5,34.1B.16.41.15 
478 0ATA38.13.5.";Y5T4L2E2:54:1A1D3D7B:< 
<8A8E: JBMEQEVCY30AO>H<N>Q7R9P:M8M6P7;9:8 
56558D1 E342261 E2J307XD9C< <> : B< DBG7 JDN >63 
SU5CR47K45<4934C4470<80<78< 123456789: ;<= 
>?3ABC1BDEFGHDBIJKLMIBN0P0RNB".4.42.1B 
48B DATA1B.53.1B.37.7.6.";X8X6U6L2J2G3E5 
E4A2=2452<274B=D>DBBDALBPBT3US<<>>C;G9G7 
E8L9KI7D>0<0 = L?L3I17A939>5<4>6122>2D5A5C 
■3ACF3LBL873:V5:Q43F4:D4>64>N<8H63=66><1 
23456789: ;<=>7SABCDEF1«7GHI JKL8B4MN0PBBQ 
RSTUQBVUXYZVB-.3.31.11 .12, 48. 15. 31, 7. 12 
490 DATA "3S;a:NCLDNDR:(C5H2D2<57;7C = 0DBI 
=G3GBAAB<E>A37S<>;=7:C9B5B3D7F7983>6A:D< 
472-l>2F3ICI6J:L8=33P53N4<H4<A4334<94=E< 
AA<7C< 77< 1234561 8789 : :<0= >?7BSABCDBBEFGH 
IEBJKLnNJB".5,34.8.8.38.7,38.15.9 
5BB DATA"<Y6Y4U4U5Q5M2H1B1 ; 4381 - 1C3E5E = C 
7CAECEFCX7L : K5G5B8= : = >3>P7U9< : : : 7967 :C25 
2152IANBP033R3:38U5;M42?4<34DE6B?699<ELM 
123456789: :<=>?3ABCDEFGHI JKABNOPQRNB" ,4 
51 B DATA44,13.11 . 56 . 7 . 37 . 1 4 . 5 . "4U6S<T<U9 
Y5Y4W2R2L3G7H=F7A973B2E17l:56:5:8<:B<C:E 
7E4AK 1 : 3BBDFCLDRSUB0AL< J : L<09F9E7C4D5F9 
2338428E;CS2B1EEF2JDL7638V5:U4>M43E4=A47 
E<<:4D544N6AD6966;341234567189: ;<=>?B:37 
ABCDEFGHIJKLMDeGNOP0R48STUVUSBXYZC*xe" 
52B DATA5.44.12.7.55.5,38.6.6,":Y4Y1U1Q7 
M<K>H>A: >3<181341 ; 1 A6C9EBEKAU>V ;U ;T>03R3 
S708J7I<M=0CIDGDCBCAH3CDSB77B37 7=<: :<>?2 
1A4C737:A<H4L7736U58R4BJ4BE4784334 = T< >L< 
CF<BB<=<< 123456789: ;< =>?SABC18DEFGHID8JK 
LMNJBOPORSOBTUVWT8XYZC*X8",3.32.12.13 
53B DATA41.13.33,1B.12,"BJBNBS>U6T101K3G 
9JDHDFBD:D5A2C69:6B6E9E?60:N9L5K4L3BC7C< 
B9B : A >7A< 4B6494 > 1 B2GCCE ICNDT >U7V2R : =3 >R5 
3044 1 4<B4D:4<747(1<A:<A3<4D6BG61 234567691 
: ;<o?8B>BABCD<eEFGHIEBJKLMNOPJ8" 
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FNX(nh FNY(n) n 

h. i , j )i-ym 

M$(n) y^-tz-y?-^ 

m$ xy-tz— ywtmm 

PM, PS, MP ^3->S 

r zimmitm 

S Xr-f7^ASffl 

SS 7,=17H-»ffl 

TX(nh TY(n) S, a 

Y$ 5i®ffiW7 1 -5> 

Z f-^SSffl 

ZS(nk ZC(n) HSU 



n£^Afl?tft 



10 REM* 
20-40 SJJtSfS^ 
50 WMb 
60 REMX 



70 ^ffl/ft-Jkx 

80 ?— ^ot^^*- 

90 ?-^K^ 

100 REMX 

110-120 =]-X^ftEl}ffia 

130-140 /Tv-JI^'-^S^ 

150 REMX 

160 Xvfe-i>Si 

170 ^a->h 

180-190 /K-JU^fUHT 

200—210 e«,<S¥iJ£ 

820 ^ffl^a^N'X 

230-240 fryyjy 
250 RE MX 
260-280 3DH®Jfflil 
290 IMntf— 
300 REMX 
310-340 3DJHHftS 
350 3DS^75lq]|§:£ 
360 7fc-JI/7«-**^ 
370 Sy#-A2JtK7 
380 XH7 • i7^^'SS 



^^-ft-'s 



"kEtfTBT^ 



3Dg>fcC9=l>;7^r-Att, "7 

p >yArttto»ri.fcs^„ 

3D*^li<!:"o-f> il§ro? 
a : cco-y— A~tli, n-^ro 
^57-f >y £lifcT41(0 ~ 

40) x«$21(0 ~20)«ffi^f(7)± 

/itffiuTi^uciii). a 

•?:*IJ? 

mi. ±^6^fc=i-7. 








3 : 3DS^ro^"Y>htt, tK 
a : fc'*»"D, CC"tH^ h#f] 

ffl^•n•5^fc'„ ^-n-FticDh'y 

h^niis^ijuT, ^n^m 

£-*£Att\ gJHWKlE] £f£#[l] 

a: fttr^ffltntfiatfjpi^n 

TO-Slj-t'fe. CCDSJfsbTc^ 

2) 

5*" : f-ft#>6 ? 

a : ^UX.^^fia^in^TfH 
3 ) .mWZ.\-V fC«t#s^i£ 

(0 4)„ fti>SM<t^fc7 



390 s/a vhx-^— y-? 

400 ^XSR 

410 xy-tz— y^s 

420 RE MX 

430-440 XX^Yh7^-> 

^ t-* - $ (ma? m & z h) / 




4or^*z&) 

450-530 ^-;U?-^(S80 

Tot^3^) 

(77i/*-l*-) 



vtzt 



BSeWPTLfe 



»(7)7n^5Atf-&^lcKS©»WPUt. $. Z^CSWDHV fctv\ 







JS. /K-JbfrbJEfcn-T. 113. ^«1BI 





tat x Tyfi i ') y tjiSkwi i m^i i - 

04. «K=ffi*-TS<i:- 







n^7"^A/;"ctfe„ 

a: ^_, fdifc: ? 

+P-K) tAorfc6,*OT 1 
6ff^ &*> b IC&-5 \£fX b J; , 



t'-LTIJ^-vOIZKv h&fiLT2lf:3 

nt, ^^^ii^s»ri3*b* 

a : A, ^o&©? 

a: CtUi^^E l^fotl 
5^ • a : )\)\)\/ 
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S-FIGHTER 



T.T.'-^j'^- 



E232/2+VRAM128K BY ttJII73fflrl 



► STOIi4T<-s; 



T SUA 



-Atsm 



D(n) Itt 

E(n) ftaiQffiftffi 

F(n) ft©[6]£ 

G(n) SifcCDttlf 

M(n), N(n) y-f>7, 

P(n) MfcWXtzJ^- 

V(n),W(n),X(n), Y(n) 

rnw^mrn 

A, K I, J, K, U O 

;Hffl 

C(n) +-A^gBS^ 

I $, Jl $, J2$, K$ 

n>tfzL-^©b^Ju 

R :?Uff-A3& 

S Xx^^ASffl 



10-20 BHISS/MSsS 

30-60 y^v-AttcDikm 
70~ioo x^-oa^-^ 

no-810 ws©^s/ie5y^ 

EE0-500 *-Afl/-*1»52 

510-M) ^b-f^-©^tl7D 

[S]SiJ«fliIIJU-^> 

830-17P0 y\y-1V-<D&W 

1730-1830 ziVtfa.-?©^ 

1840-2460 X^l'hyW- 






te±3©7,hf-Ktffi<gPSS^ 



2' < -gRfflSI£©§iKl//^«n 

SllBtofrb&frofco 

(icuc/uiY) 



aH/-t7l*W-IKP* 




-K^-TS'-IIiraW'C&O, 
□ ^A^Sg&teUto^Ufco S 

Cp&D£tthjt)-' J i:l\oZtV 
(*JII7JEHS) 



SF I GHTER. FD1 

16 COLOR 15.1.1 rSCREEN e 

2a DEFINT A-Z:DIH C(l ) 

SI PRINT'IP VS COM or 1P VS 2P":INPUT" 

( 1 or 2 ) " ;R: IF R< 1 OR R>2 THEN 36 ELSE 

II PRINT"1P STICK 1 STRIG":INPUT "I 6 - 

2 )":C(6):IF CIIX1 OR C(B)>2 THEN 46 
58 IF R=l THEN Q=8:GOTO 78 

68 PRINT-2P STICK S STRIG" : INPUT " ( 8 - 
2 I " :C ( 1 ) : IF CIIKI OR C(l)>2 OR C(8)=C 
(1) THEN 68 

78 SCREEN 7.3:R£STORE 1848:FOR 1=1 TO 63 
:J1$="":J2S="":READ I$:FOR K=l TO 16:K»= 
MIDS(IJ.K«4-3.4) 

68 J1S = J1S*CHRS(VAL("&H , ' + LEFTS(K$.2) ) ) : J 
2S = J2$*CHR$(VAL<"&H"*RIGHT$(K$.2)) ) 
96 NEXT:SPR1TE$(I)=J1$*J2S:NEXT 
186 COLOR=(1 .1.1.8) :C0L0R=(2.7,3.B) :COLQ 
R=(3.B.7.3) :COL0R=(4.2.B.8> : COLOR' ( 5 . 6 .2 
.8) :COL0R=(6.1 .1.1) :COLOR=(7.7.7.7) :COLO 
R=(8.7.7.7) 

116 LINEd ,148)-(511 .188) .6.BF 
128 FOR I = 5B TO 158 STEP 188 
138 LINE (256*1. 148 ) - (256+ I«1 .5.188) .1 
148 LINE C256-I. 148 )-(256-I«l .5.188) . 1 
158 NEXT:H=1 

166 Din X(l) .Yd) .0(1) .G(1 ) .Ed ) .F(l ) .P( 
ll.UIII.PIIII .Nil ) .VII) 

176 V(B)=B:V(1)=B:IF R=1 THEN LINE(236-0 
•48. 36) -STEP (-35. 5) .7.BF 
:5B LINEI36. 51-1236. 15). 4. BF 
198 LINE(276.5)-(476.15) .5.BF 
2B8 X(B)=54:X(1)=17B:F(B)=1:F(1)=-1 
211 FOR 1=8 TO 1 :Y(I) = 1B8:D(I) = leB:G(I) = 
B:P(I)=B:U(I)=B:NEXT 

228 A=1-A:B=1-A:U(A)=1-W(A) : E ( A) =SGN I X ( B 
)-X(A)-A».5):IF A»R=2 THEN 173B 
238 ON G(A) GOTO 518.1416.838.888.948.18 
BB.l668.ll2a.117e.l22B.1278.l37B 
248 IF STRIG(CIA)) THEN 326 
256 S=STICK(C(A) ) 

266 ON S GOTO 42B.448.35B.46B.46B.466.48 
8.458 

27BF[A>=E<A):Y(A>=18B:P<A>=8:G(A)=B 
2tjB PUT SPRITE 1 *A . (X ( A) . 1 82-U( A ) ) . 2«A . 2 
-F(A) 



298 PUT SPRITE 3»A , (X ( A ) . 1 32-U ( A ) I ,2*A. 3 

-F(A) 

3BB PUT SPRITE 5*A . ( 8 . -32 ) . 1 . B 

318 GOTO 228 

328 IF G(B)=2 THEN 278 ELSE S=(STICK(C(A 

) I )»1*((F(A)*1)/2«9) 

538 ON S GOTO 57B . 71 8 . 278 .748 . 27B . 78B . 78 

8. 668. 626. 578. 7 18. 628. 666.788.788.276.74 

8. 278 

348 GOTO 27B 

356 P(A)=B:X(A)=X(A)+8:F(A)=E(A) : IF X(A) 

>224 THEN X(A)=224 

368 PUT SPRITE 1 *A. (X(A) . 182) .2+A.2-F (A) 

378 PUT SPRITE 3*A . ( X( A) . 132) . 2*A . (3-F ( A 

))»(1-U(A) )+(5.5-F(A)/2)«U(A) 

386 PUT SPRITE 5*A . I B . -32) , 1 . 8 

398 GOTO 22B 

468 P(A)=8:X(A)=X(A)-8:F(A)=E(A) :IF X(A) 

<B THEN X(A)=B 

410 GOTO 368 

426 P(A>=B:G(A)=l:M(A)=e:N(A)=-76 

436 IF D(BXB THEN G(A)=8:GOTO 276 ELSE 

521 

448 P(A)=B:G(A)=1 : M ( A) =16: N ( A) =-7B :GOTO 

438 

458 P(A)=B:G(A)=1 : n I A) =-1 6 :N ( A) =-7B : GOTO 

438 
468 Y(A)=1BB:P(A)=P(A)*1 

478 PUT SPRITE 1 *A . ( X( A) . 1 86 ) . 2*A . 1 1 . 5-F 
(A)/2 

436 PUT SPRITE 3*A . ( X ( A) . 132 ) .2*A .9-F ( A) 
498 PUT SPRITE 5*A. [ 8 . -32 ) . 1 . 8 
588 GOTO 228 

518 IF STRIGIC(A)) THEN 768 
528 X(A)=X(AXMIA):IF ABS ( 1 1 2-X ( A) ) >1 12 
THEN M(A)=B:IF X(A)>112 THEN X(A)=224 EL 
SE XIA)=8 

536 N(A)=N(A)*24:Y(A)=Y(A)»N(A) :IF YIA)> 
99 THEN G(A)=B:X(A)=X(A)-M(A)».6:G0T0 27 
B 

548 PUT SPRITE 1 1 A . ( X ( A ) . Y ( A ) ) . 2»A . 22-F ( 
A) 

= 58 PUT SPRITE 3»A . ( X ( A I . Y ( A) +32 ) . 2*A . 23 
-F(A) 

568 GOTO 228 

576 X(A)=X(AXF(A)«18:IF ABS I 1 12-X ( A) ) >1 
12 THEN IF X(A)>112 THEN X(A)=224 ELSE X 
(A)=8 



5F.8 PUT SPRITE 1 +A. ( X( A) . 1 88 ) .2 + A . 8-F ( A) 

598 PUT SPRITE 3+A . ( X ( A) . 132) .2tA .9-F ( A) 

688 IF ABS(98-Y(B) X2B AND ABS I X( A) »28«F 

(A)-X(B))<12 THEN 1=8: J=8 : K=8 : G0SU8 16B8 

61 8 G(A)=3:GOTO 228 

628 PUT SPRITE 1 «A, ( X ( A) . 1 88 ) . 2*A . 3B-F ( A 

) 

638 PUT SPRITE 3*A. (X(A) . 132) . 2»A . 31 -F ( A 

) 

646 IF ABSiae-Y(B) X24 AND ABS ( X ( A) »F < A) 

• 16-XIB1X12 THEN I=B ; J = 8 : K=INT ( RNDd ) «2 

) :GOSUB 16B8 

658 G(A)=3:G0T0 228 

666 G(A)=4:X(A)=X(A)tFlA)»4:IF ABS1112-X 

(A))>112 THEN IF X(A)>112 THEN X(A)=224 

ELSE X(A)=B 

67B PUT SPRITE 1 +A . £ X ( A) . 1 88 ) . 2*A . 1 1 . 5-F 

(A)/2 

688 PUT SPRITE 3*A. ( X ( A ) . 1 32) . 2»A. 9-F ( A) 

698 GOTO 228 

768 -G(A)=5:MIA)=64»F(A) :GOTO 678 

718 IF P(AXH THEN P(A)=B:GOTO 278 

728 X(A)=X(AXF(A)«4:IF ABS ( 1 12-X ( A ) ) >1 1 

2 THEN IF X(A)>112 THEN X(A)=224 ELSE X( 

A)=8 

738 G(A)=8:G0T0 678 

746 IF P(AXH THEN PIA)=8:GOTO 27B 

758 G(A)=11:M(A)=F(A)«24:N(A)=B:GOTO 678 

768 IF NIAX-3B OR G(B)=2 THEN 528 

778 IF STICK(C(A))=5 THEN G(A)=6:GOTO 1 

688 ELSE G(A)=7:G0T0 1 B6B 

786 IF P(AXH THEN P(A)=8:GOTO 278 

798 X(A)=X(A)*F(A)»8:IF ABS ( 1 12-X I A) ) >1 1 

2 THEN IF X(A)>112 THEN X(A)=224 ELSE XI 

A)=B 

886 PUT SPRITE 1 *A . (X ( A ) . 1 68 ) . 2tA . 46-F ( A 

) 

818 PUT SPRITE 3*A. (X ( A) . 1 32 ) .2*A . 41 -F ( A 

) 

828 M(A)=X(A) :G(A)=12:G0T0 1378 

336 P(A)=8:G(A)=8:Y(A)=188 

846 PUT SPRITE 1*A. (X(A) .188) .2 + A. 1 1 .5"F 

IA1/2 

856 PUT SPRITE 3»A. (X(A) .132) .2tA.9-F(A] 

868 PUT SPRITE 5*A . (8 . -32) . 1 . 

878 GOTO 228 




88» x(a)=x(a)»f(a)»2b:if abs ( 1 1 2-x ( a ) ) >1 

12 then if x(a)>112 then x(a)=224 else x 

ia>=b 

898 put sprite 1 *a . (x( a) . 1 08 i . 2*a . 34 . 5-f 

1A)«1 .5 

908 PUT SPRITE 3*A . (X ( A) . 1 32 > . 2«A . 35 . 5-F 

(A)»l .5 

918 PUT SPRITE 5*A.(X(A)»FIA>»32.116).2» 

A,36.5-F(A)«1.5 

928 IF ABS(1S8-Y(B)K24 AND ABS(X(A)*3B« 

F(A)-X(8)K12 THEN 1=10 :J=0 :K=9 :GOSUB 16 

BB 

938 G(A)=3:G0T0 22B 

948 Y(A)=129:M(A)=N(A)/2:X(A)»X(A)»M(A): 

IF ABS(1 12-XIA1 ) >112 THEN IF X(A)>112 TH 

EN X(A)=224 ELSE X(A)=9 

958 PUT SPRITE HA. (X(A)-F (A) «12. 1 32) .2* 

A.26-F1A) 

968 PUT SPRITE JtA. { X ( A ) *F ( A ) «2B . 1 32) .2* 

A.27-F1A) 

978 IF ABS(129-Y(B) )<24 AND ABS(X(A)»F(A 

)»39-X(B)X1B THEN I=6:J=9:K=INT(RND<1)« 

2) :GOSUB 16BB:G(A)=3 

988 IF ABS<M<A>)<18 THEN G(A)=3 

998 GOTO 228 

18B8 X(A)=XCAXM(A) :IF ABS ( 1 12-X(A) ) >1 12 
THEN M<A)=B:IF X(A)>112 THEN X(AI=224 E 

LSE X(AI=8 

1818 N(A)=N(AX24:Y(A)=Y<A>»N(A) : IF Y(A) 

>99 THEN G(A)=8:X(A)=X(A)-MIA)«.6:G0T0 2 

78 

1B2B PUT SPRITE 1»A. (XIA) .Y(A) ) .2«A.18-F 

(A) 

1838 PUT SPRITE 3»A . (XI A) . Y ( A) »32) . 2*A . 1 
9-F(A) 

1848 IF ABS<Y(A)*48-Y<8) X12 AND ABS ( X ( A 

)-X(B))<16 THEN I=8:J=B:K=B:GOSUB 16B8:G 

(A)=l :N(A)=-58:M(A)=SGN(111 .5»A-X(A))»16 

185B GOTO 228 

1B6B X(A)=X(A)*M(A) :IF ABS ( 1 12-XI A) ) >1 12 
THEN PICA)=B:IF X(A)>112 THEN X(A)=224 E 

LSE X(A)«8 

1878 N(A)=N(A>»12:Y(A)=Y(A)*N(A> :IF Y(A) 

>99 THEN G(A)=B:X(A)=X(A)-M<A)«.6:G0T0 2 
78 

1888 PUT SPRITE 1 »A. (X ( A) -F ( A)«l 2. YIA) tl 
6) .2»A.26-F(A) 

1898 PUT SPRITE 3»A. (X ( A) *F ( A)«2B . Y( A) *1 
6) .2+A.27-FIA) 

1188 IF ABS(Y(A)»14-Y(B>K24 AND ABS(X(A 

XF(A)»28-X<BI K14 THEN 1 = 18 : J=B:K=1 :GOS 

UB 16BB:G(A)"1 

1118 GOTO 228 

1128 Y(A)=88:X(A)=X(A)»F(A)»28:IF ABS ( 1 1 

2-X(A>)>112 THEN IF X(A)>112 THEN X(A)=2 

24 ELSE X(A)»B 

1158 PUT SPRITE 1*A. (X(A) .88) .2*A.5B-F(A 

) 

114B PUT SPRITE 3*A . < X< A I , 1 1 2) . 2«A .51 -F( 

A) 

115B IF ABS(8B-Y(B) X24 AND A8S(XfA)»16« 

F(A)-XIB)X18 THEN 1=28: J=8:K=1 :G0SU8 16 

88 

1168 G(A)=9:G0T0 228 

1178 YIA)=4B:X<A)=X(A)*F(A)«8:IF ABS(112 

-X(A)))112 THEN IF X(A)>112 THEN X(A)=22 

4 ELSE X(A)=B 

1168 PUT SPRITE 1»A. (XIA) .48) .2*A.5B-F(A 

) 

1198 PUT SPRITE 3*A. (X(A) .72) .2»A.51-F(A 

) 

1288 IF ABS(26-Y(B)X2B AND ABSIX(A)»1B» 

F(A)-X(B)X18 THEN I =28 : J=8 : K = 1 :GOSUB 16 

88 

1218 G(A)=18:M(A)=F(A)«4:N(A)=-59:GOTO 2 
28 

1228 X(A)=X(A)tM(A) :M(A)=B:IF ABS(112-X( 
A>)>112 THEN n(A)=B:IF X(A)>112 THEN X(A 
)=224 ELSE X(A)=8 

1238 NIA)=N(A)»24:Y(A)=Y(AI»N(A) :IF YIA) 
>99 THEN 838 

1248 PUT SPRITE 1 *A . (X ( A) . Y ( A) ) . 2*A . 54-F 
IA) 

1258 PUT SPRITE 3«A. (X ( A] . Y( A) »32) .2*A. 5 
5-FIA) 

12=8 GOTO 228 

1278 Y(A)=B4:X(A)=X(AXM(A) :IF ABSI112-X 
{A)>>112 THEN IF X(A)>112 THEN X(A)=224 
ELSE X(A)=B 

1288 PUT SPRITE 1 »A. I X< A) .84 J . 2«A .44 . 5tF 
(A)«1.5 

1298 PUT SPRITE 3-tA. (X ( A) . 1 16) . 2»A. 45 . 5» 
F(A>»1 .5 

13B8 PUT SPRITE 5»A. ( X< A) -F I A)«32 . 1 88 > .2 
♦A.46.5»F(A)-1 .5 

1318 PUT SPRITE WA.(X(A).84),2»A.44.5-F 
(A)»1.S 

1328 PUT SPRITE 3*A. <X(A), 116). 2*A. 45.5- 
F(A)»1 .5 

1338 PUT SPRITE 5»A . ( XI A I »F ( A) «32. 1 8B ) .2 
♦A.46.5-F(A)«1.5 

1348 IF ABS(84-Y(B) X24 AND ABSlXIAItFIA 
>»28-X(B)X18 THEN 1 = 1 2 : J=2: K=INT I RNO( 1 ) 
•2) :GOSUB 1688 

135B N(A)=N(AX1 :IF N ( A I >3 THEN G(A)=3 
1368 GOTO 228 

137B H<A)=M<A)*FCA>«28:IF ABS ( 1 1 2-M< A) ) > 
112 OR ABS(X(A)-M(A))>148 THEN 838 
1388 PUT SPRITE 5»A. (Ml A) . 1 18 ) .4»A .61 . 5- 
FIAI/2 



1398 IF ABS196-Y(B)X28 AND ABS(M(A)-X(B 
1X38 THEN I=8:J = 4:K = 8:GOSUB 16B8:G(A)=3 
1488 GOTO 228 
1418 X(A)=X(A)*N(A):IF ABS ( 1 12-X I A) ) >1 12 

THEN (1(A)=8:IF XIA)>112 THEN X(A)=224 E 
LSE XIA)=8 

1428 N(A)=N(A)»18:Y(A)=Y(A)»N(A):IF YIA) 
>112 THEN X(A)=X(A)-M(A):N(A)=-INT(N(A)« 
.6):Y(A) = 116:IF ABS(N(A)X4 THEN 1478 
1438 PUT SPRITE 1 *A . <X< A) -F I A) -16. Y ( A) H 
6).2«A,58-F(A) 

1448 PUT SPRITE 3* A . (X ( A) *F (A) «1 6 . Y ( A) ♦ 1 
6).2»A.59-F(A) 

USB IF DIAXI THEN FOR T=l TO 588:NEXT 
1468 GOTO 228 

1478 IF D(A)> = 8 THEN G(A)=8:GOTO 228 
1488 PUT SPRITE 1 *B . (X ( B > . 1 88 I . 2*8 . 3B»F ( 
B) 

1498 PUT SPRITE 3*B. (X ( B I . 1 32) . 2*8 . 31 *F < 
B) 

1588 V(B)=V(B)*1 

1518 IF B = B THEN LINE ( 276-V I B) «4B . 28 ) -ST 
EPl-35.5) ,7,BF ELSE LINE (236*V< 8) -4B . 28 ) 
-STEP135.5) .7.BF 
1528 FOR T=1 TO 5B8B:NEXT 
1538 IF VIIX2 THEN 188 

154B PUT SPRITE 1 *B. ( X ( B) . 1 BB ) . 2*B*W< B ) » 
5.38*F(B) 

1558 PUT SPRITE 3*B. ( X IB) . 132) . 2»B*U< B > - 
5.31*F(B) 

1568 U(B)=1-W(B) :FOR 1=1 TO 58:NEXT:IF N 
OTISTRIGICIB) )) THEN 1548 
1 578 LINE112.28)-(58B.25) .1.BF 
1588 IF R=1 THEN IF A=8 THEN 0=B:LINE(12 
.381-1256.35) .1 .BF ELSE Q=Q*1:IF 0>4 THE 
N a = B:H = B:LINE(36.38) -1236.35) .1 .8F:C0L0 
R=(6.1 .8.2) 
1598 GOTO 178 

lf.8B IF G(B)=2 THEN RETURN ELSE PUT SPRI 
TE 8. (X(B) .(Y(A)*Y(8) )/2*16) .7.63:IF G(A 
1=12 THEN PUT SPRITE 5*A . ( 8 . -32 ) . 1 . B 
1618 IF B*R=2 THEN IF (G(B)=8 OR GIB)=13 
) AND INTIRNDI1 ) "1 88 KQ»2B*3B AND FIA)=- 
F(BI THEN L=J:K=B:GOTO 1638 ELSE L=I:GOT 
1678 

1628 IF G(B)"8 AND STICK (C I 8 I ) =5»F ( B) «2 
AND F(A)=-F(B) THEN L=J:K=8 ELSE L=I:GOT 
1678 

1638 PUT SPRITE 8 . ( 8 . -32) . 1 . B 
1648 PUT SPRITE 1 *B . < X ( B > . 1 99 ) . 2*B . 14-F ( 
B) 

165B PUT SPRITE 3»B.(X(B).132).2*B.15-F( 
B) 

166B FOR T-1 TO 2»B:NEXT 
1678 D(8)=D(B)-L:P(B)=B 

1688 IF B=8 THEN L INE ( 235-D (Bl-2. 5 ) -STEP 
(-58.18) .1 .BF ELSE LINE <275*D( B) »2 . 5 ) -ST 
EPI5B.1BI . 1 .BF 

1698 PUT SPRITE 8.(8.-321.1.8 
178B IF K = 1 OR YIBX1B8 OR OIBXB THEN G 
(B)=2:Y(B)=Y(B)-24:N(B)=-2B:F(B)=-F(A):M 
(B)=-F(B)-4:PUT SPRITE 5*B . ( B . -32) . 1 .8 : R 
ETURN 

1718 X(B)=X(B)»F(A)»1B:IF ABS ( 1 1 2-X ( B) ) > 
112 THEN IF X(B)>112 THEN X(B)=224 ELSE 
X(B)=B 
1728 RETURN 

1738 ON G(A) GOTO 1818.1418.838.888.948. 
1B88.1B6B. 1128. 1178. 1228. 1278. 137B.178B 
174B IF ABS(G(B)-11 .5X1 OR INT(RN0(1)«8 
1=8 OR ABS(X(A)-X(B)X12 THEN I = INT(RND( 
1)»16):IF K8+a THEN IF 1=8 THEN 429 ELS 
E IF XIAI*A-.5<X(B) THEN 448 ELSE 458 
1758 IF INTIRND(1)-I18-0))=B THEN G(A)=1 
3: GOTO 1788 

1768 IF ABS(X(A)t48»F(A)-X(B) K34 AND IN 
T(RND(1)«1BBXQ«18*2B AND G(BX>2 THEN 
= ABS(X(B)-X(A) ):IF 0<28 THEN 628 ELSE IF 

0<42 THEN 578 ELSE IF 0<66 THEN 66B ELS 
E 788 

1770 IF X(A)«A-.5<X(8> THEN 358 ELSE 498 
174,1 IF ABS(X(A)-F(A)«18B-X(B))<126 THEN 

278 
1798 IF P(A)> = H AND G(BX>2 THEN = ABSIX 
(B)-X(A)):IF 0<68 THEN 718 ELSE IF 0<88 
THEN 74B ELSE 789 
1888 GOTO 468 

1818 IF ABS(X(A1-X(B))<16 THEN IF GIBIO 
2 AND N1AD-11 THEN GIA)=6:G0T0 1B8B 
1328 IF ABS(X(A)*F(A)«32-X(B)K16 THEN I 
F G(BX>2 AND N(A)>-11 THEN G(A)=7:G0T0 
1968 

183B GOTO 528 

1848 DATA BB8B8BBB8B8B8BE881A8814B18CB3D 
8B3FCe77E853F825De7ED83EB88DB8B3D8 
185B DATA B3D8BFD88FD81FE81DE81DD83DC839 
C939C83DC81DC81EEB16EB8AABBC5818EB 
I860 DATA 6ee8BBB8BBBBB788B58BB28B831880 
BCB3FCB7EEBFCA9BA48B7E8D7CB0BB1BCB 
1878 DATA 1BCB1BFB1BFB17F817B81BB8B3BCB3 
9CB39CB3BCB3B8B778B768fl558BA399718 
1388 DATA B3D88FD88FD81 FE81 OE83DD839CB79 
E878E87BE8387838782C7B 14281 81 83838 
1898 DATA 1 BC81 BF81 BFB1 7F81 7B81 BBCB39CB7 
9E979E978E8E1C8E1C8E341428B8181C8C 
1998 DATA eB8B8888888B8BB8B7eB8D898A8986 
B8B1E8BFDF3F0F3FC31F886F8B77B86FBB 
1918 DATA 1FB81F8B3F883F8B3BC87BC973C971 
EB71EB79EB78EB38FB287B146B385B6B38 



1928 DATA 888B8BB8B8BB888888E889B9985988 
689789FBF8FBFCC3FC81F881F6BBEE88F6 
1938 DATA B8F881 F8B1 FCB1 FCB3DC83DEB3CEB7 
8E878E979E871EBF1CBE14B6288A1C1C96 
1949 DATA B88B8B8B8B89B8899B8B87888De80A 
89968B598eEF8eEF88DF48DF6B5EE89EC9 
1959 DATA B888eBB98BBeB8B8BBBB8BE88BBBB8 
5BBB6BB19AB1F781F7B2FBB6FBB77A9379 
1968 DATA 888889898988988888898988988888 
B8B888BBB887e88D3B8A78e63B18B83DDa 
197B DATA 3BDB779876BB3989978B87E9BFF88F 
7C9FBC979CB3B88FB81F782F6B371B2638 
1988 DATA 888888888888888888888888888888 
88B8BBB8880BE88CBB8E58BC681D181B8C 
1999 DATA 9BDC99EE996E919CB1 EBB7EB1 FFB3E 
FB30FB39EB1DCB1DFB1EF8B6F4B8EC1C64 
2889 DATA BBB888B8BBBBB838B868BB58933997 
CBBBFA1DF839FC18FCBBF8B1FB83EBB7FC 
2B1B DATA 87FE87DE83CE83DC81 D885D881C8B1 
C8B3C8B3C0B3CBB3C888CB814B8180 808 
2828 DATA BBB888B8B8eB 1CBB 1 6B88AB8BCC8B3 
EBBFD81FB83F9C3FiaiFBB8F8BB7C93FE9 
2938 DATA 7FEB7BEB73CB3BC81 B8BBBABB38BB3 
88e3C883CBB3C8B3C8B3BBB28B8 1889 199 
2848 DATA 881 8B83C19DC3B4C3A8E1 D86BC3435 
F87BFC77F8BFCeBFCBB79984EflB3Ffl97F9 
2958 DATA BFFBBF7BB6EBBBE9816B91 ABB1 8982 
88B3B8B3aee78BB7BBBBB8BDBBBC98848B 
286B DATA 1 8883C883B9832DC71 5C61 B82C3B1 F 
AC3FDE(FEE93F8B3F888EB972BBFCBBFE8 
2979 DATA BFFBBEF8B768B7BB868BB588B18BB1 
49BBCB81CBB!E899E99BDB8B8B893Bee2B 
2888 DATA 8B398B6BBB51 81 B8B3CEB3FF81 FC8D 
F8BEFF977FB87FBBFF91FC91FBB1F48BEC 
2898 DATA 88B8898BCB8BC88BCB8848B988BB8B 
88FFF6FFECFFB8E8888B8BBBBB88899B8B 
21BB DATA 9CBBD6B88A8B9D8973C9FFCB3F8B1F 
8BFF7BFEE8FEB8FFB83F8B8F8B2F8B378B 
"18 DATA 888188818883888388838882888989 
9B6FFF37FF88FFB887B8BB8B8B8BBBBBBB 
2128 DATA 88B89B1C991C881CB38C868C858CB3 
14BBF8B7F8BFF88FEBBFEB37C877C938CB 
2'39 DATA 1 BEBB7EB87EBBFF8BFF8 1 EFB1 EF81 E 
783C783C7C3C3C3C3C1E3C1634BA281C1C 
2148 DATA BB89389938BB38B831C831683eAB2a 
Ce1FB81FE8BFF8B7FeB7FB83ECB3EE83DC 
21 58 DATA 87D887EBB7E8BFF88FFBBF781F781E 
781 E3C3E3C3C3C3C3C3C782C681 4583838 
2168 DATA 888888888888888888888108834882 
888D8C1E1C2F8C37CC67E863E873CB7787 
2178 DATA 27FF87FF87FF8 1 FBB28BB389B38BB7 
8BB78B878e9F999F9B9F99B6BBB8eeeE8B 
>180 DATA Be8888BBe888BBBB088B00000008FE 
CBFD8BE8999BBBBBBeBBB9e0BBeB999B8B 
2198 DATA 888988888888888898888388820881 
4B31BB387831F433EC17E6B7C683CEE1EE 
2288 DATA FFE4FFE9FFE89F8B8B48B1CBB1CB91 
EB81 EBB 1EB89FB8BFB88FB886888 198979 
2218 DATA BBB8B889B88B888B8BB8888B888B83 
7Fe1BFBBB78BBe8B8B8B8BB8BB8BBBBeBB 
2228 DATA 988888889899888888888888888999 
e88999997BB1F8B8ElB7e78FFBBFEFBEDF 
2239 DATA B7B3B7E2B7C8B7CBBF88BFF81 FFC1 F 
FC3E7C3C1C783C7838B878D86BCB18EB3C 
2249 DATA 888BB8B88BB8998B9999999BB8B888 
B0BBB80EBB9FS88789E9E08FF8F7F8FB78 
>2S0 DATA C9EB47EB93EB83E881FB8FFe3FF83F 
F83E7C383C3C1E1C1E1EBD868B18B33CB7 
2269 DATA 99898998888999E9B1 ABB14BB8CBB6 
88B7CB87FBB3F8B3E88DEC8DCB85FF83FF 
:278 DATA 93FFB3FC83EBBSCBB3CeB3CeB!CBB1 
CBB1CB81CB81CB81CB88CBB1 488 1888 IBB 
2288 DATA BB88B8888999889888998889FEC9F D 
6BF9B9999BBeB8B88B8899999B8BBBB8Be 
22V8 DATA 899888889988878885888288838888 
6883E8BFEB8FC917C937BB83B8FFABFFCB 
2388 DATA FFCB3FC887CBB3C8B3CB83CB838883 
8883888388938983888388828881889988 
2319 DATA 808908090 999B9B88Be90B88B37F9 1 
BF999F9BBBBB8e8BBBB99BB8BBB8B9B8B9 
232B DATA 88 1 CBB 1 CBBBCBBBCBBBBB 1 C483CC93 
98B1B8B27887F84FF8EFF8DFEBDDE86DF8 
2338 DATA 2BF883FC83FEB3DFB3CE83B4B7B8e7 
9887988788878886888588838883988389 
2549 DATA 38883888388838881 888238833C819 
C81D888E488FE88FF28FF787FB87BB8F86 
2558 DATA 1 FD43FC97FC9FBCB73C82DCB1 DE819 
E089E881E081EBB16BB8A888C086CB8BCB 
2368 DATA 838883888188994883888208814881 
88886982F8837BB1A881 1BB0F988E88858 
?378 DATA 81 B893FBB3C8B79987EBB3F881 F888 
68BB98eBDBeeE8BB7BBB7BB8289B18B8B8 
2388 DATA BBCBB1CBB 1 8892999 1 C88348B2800 1 
888698BF4BBECB1588B8a98F8B 17881 ABB 
2399 DATA 1 D8B9FCB83CB89E997E9 1 FCBBF8B16 
BB1988BBB8879B8E88BE88UBB18BB1B8B 
240B DATA 88B9B8BBBB888898999888888B8888 
B8B9F99DFC15FF1AFF9EEC68F1EC6FB8B7 
2419 DATA 888888888888999889888888888880 
8B1E8B3F8B7F6BFFB8F7B66BDB81ABBB78 
2429 DATA 998998888888888888888888908888 
8eBFBB3FBBFFAeFFS8377B8F86F637EBBB 
2438 DATA 088898888888888888988888888888 
3B8B788BFC86FE1DFF6DEFDBD6e581BE99 
2440 DATA 08888908836B8F E 87FF 887F 1 FF88 1 
F 8F FF83FF 88 5F88FE 88 388980 808 8 88989 
2450 DATA 88BBBBB8B 1 C887F B0F F E8FE8 1 FF61 F 
8B1FFF0FFC0FC887F8B1OBBBB8B8008000 
2468 DATA 808808882894 1 8 1 61 E788FF88F FBB7 
EB87EB0FF88FF81E7818182BB48B008B88 
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H*? 7, 1/3 A 



30*73* ;u=i a 



""TEMPLE DEL SOLj 



Zl^(Dt^l\Z^U^> a 

1 8 _MUS IC ( 1 . t . 3 . 3 . 2 ) : POKE&HF A2C ■ 21 : POKES 

HFA3C.16:P0KE&HFA6C.24:POKE&HF4D.16 

28 CALL V0ICE<B45.32.84.83.a45.ai6.S45.8 

6) 

3) T1$»"T9504V15L8-:T2$=-T9506V9L8":T3$» 

"T95O3V15":T4S = "T95S1M120))O2L8":T5S--"T9 

504V12L8":T6$="T9S03V13 - 

40 SOUND 9.15) 

=1 '5K3-V c/if"i 
6t AFS="L1 >>D&C2<A2A&G&FS£XD&D2Q8L4A>C 
78 AGS«"L1 >DSC2<A2A&GSFSE&D&D2Q8L4A>C 
88 BES-"04R1R1L8AFDFAFDF>C<GEG>C<GECEC<A 
>FD<AFADA>EDD<A>FDL1A&A2A4>C4<" 
98 CFS = "L103DSC2<A2>DJESF&E2&C2SDSC>2D4C4 
188 CGS="L103R1R1L8DD4DDD4DEE4EEE4EFF4FF 
F4F DR8CR8R4CR8< L4D . D8D . DSD . D8 
1H AHS="D2.FE2.C8<G8G.A8&A2R2R4A8>C8" 
128 BFS="L8AFDFAFDF>C<GEG>C<GECEC<A>FD<A 
FADA>EDD<A>FD" 

138 CHS->"L4B-.B-8B-.B-.8>C.C8C.C8<D.D8D.D 
8D.D8D.D8" 

148 AIS="D2.FE2.C8D8E2.GG.F&F8<A8>C8" 
158 BGS="L8AFDFAFDF>C<GEG>C<GEOC<GEG>C< 
GECEC<A>D4<A>FD 

168 CI$="L4B-.B-8B-.B-8>C.C8C.C8<A.A8A.A 
8D.D8D>D8C8" 

1 7t AJS«"D2 . AGER4CC4 . D8&D2R2R4< A8 >C8" 
188 BJS="L8AFDFAFDFER8CRSR4<AR8>GECFD<AF 
ADEFA>DEFA" 

198 CJ$ = "< B- . B-8B- . B-8A8R8AR8R8A8R8D . DSD 
.D8D.D8D.D8" 

28) AKS-"D2.AGER4CC4.D2&DSR2V18L-32D>D<E> 
E<F>F<A>AD>D<E>E<F>F<A>AL804" 
2 1 8 AL$ = "0SL4D2 . &D8< A8 >C4< A4 . R4 . G2 . CF . A . 

228 CLS-" >D . DSD . D8E4C4 . R8< A4G . G8GEF2C2 

23) CMS-." >D . D8D . DSC . C8< A . A8G . G8G . G8A . ASA 
.AS" 

24) AMS="L4>D.E.G.A.L8>C<GEG£C<A>CV12C<G 
ECV10EC<A>D&D<A>FD 

25) BLS="AFDFAFDF>C<GEG>C<GEG>V12L4A.G.V 
1BA.V9E2.< 



Notes' notes J-V-J-V 



-sici8or<-5A^ura t o< o„ 
c-f^o, -acsi-5fflis*<re~3 



26) AN$="04L1V12G&D*>C2.V13F4E1 

278 8N$="04>L1C&C»E2.V11D4C4.<L8G>C<GEC 

28) CNS="L1A&F&G2L8>C<GEOC4.<G>C<G 

29) C0S«"L4A . ABA . A8F . F8F . F8G . G8G . G8C . C8C 
L8EC 

3)8 A0$«"D1 >D2L4<A>C 

31) AXS«"D1>02V15L4<A>C 

328 B0$="D1>A2C4L8<A>C< 

338 CPS="L8D4.DFAF4D2D4<A8>C8 

34B C0$="D4.DD4.DD4.DFFEE 

358 AR$«"D2.AGER4CC4.D8&D2R2R4V1X<L8FA> 

36) CR$ = "< B- . B-8B- . B-8A8R8AR8RBA8R8D . D8D 

.D8D.D8DV14L8>D8E8" 

378 CYS = "< B- . B-8B- . B-8A8R8AR8R8A8R8D . D80 

.D8D.D8DL8>D8E8" 

38) BR$»"L8AFDFAFDFER8CR8R4<AR8>GECFD<AF 
ADEFA>DEV14DE" 

39) BT$-"L8AFDFAFDFER8CR8R4<AR8>GECFD<AF 
ADEFA>DEV12DE" 

480 ASS = "L8F2.AR8GR4ER4C4C4.D8&D1>0UD8" 

41) BSS="L8AFDFAFDFER8CR8R4<AR8>GECFD<AF 
ADEFAD1" 

42) CSS«"L4< B- . B-8B- . B-8A8R8AR8R8A8R8D . D 
8D.D8L16<DEFGAB>D2. 

438 ATS'"L8F2.AR8GR4ER4C4C4.D8&D1<01R1" 

448 FOR M-=B T01 

458 CALL BGM(I) 

46B PLAYt2 . T1 S . T2S , T3$ . T4S . T5S , T6S 

478 CALL V0ICE(S5.82.B45.a3.S42.al6.a45. 

86) 

488 PLAYt2.AFS.BES.CFS.CGS."V11"*AGS 

438 FOR J»B TO 1 

58 8 PLAYt2.AHS.8FS.CHS.CHS.AHS."V11"*BFS 

518 PLAYt2.AIS.BGS.CIS.CIS,AIJ.BGS 

52) IF J«1 THEN 55) 

538 PLAYt2.AJS.BJS.CJS.CJS.AJS.BJS 

540 NEXT J.K 

558 PLAYt2.AKS.BJS.CJS.CJS.AKS.BJS 

56) PLAYt2.BJS.-v13"+ALS.CLS.CMS.ALS.BJS 

57) PLAY*2 . BLS ■ AMS . CMS . CMS . AMS . 8LS 

58) PLAYt2.ANS.BNS.CNS. COS. ANS.BNS 

59) PLAY»2 . AXS . BOS . CPS . COS . A0St"04V1 1 " . B 
OS 

680 PLAYt2.AHS.BFS. CHS. CHS .AHS.BFS 
618 PLAYt2.AIS.BGS. CIS. CIS. AIS.BGS 
620 PLAYt2 . ARS . BRS . CRS . CYS . AJS. BJS 
63) PL AYt2 . BSS ■ ASS . ATS ■ CSS .SSS . ATS 



Bffi/rs^Tvoumii; 



5<fcUZ0ffi 



fr6-S£lc A> K^ol n§3A*i&©T* 



RAtiV\- : £--ZttttZl,£z> r i$SlZZ. 
£1* j<Ll\?m[jl^mtf.<DT&r>tzo 



CALLMUSIC(B.).5.4) :CALLTRANSPOSE ( )) :C 
LTEMPERM0) :CALLPITCH(44)> :CLEAR999:F0 
=8T07:POKE&HFA3CtI«16.(IMOD5)«3):NEXT 

PLAYt2."821T5)V13L8"."821TS)Vl3L8- 

PLAYt2."G.A16GE4.G.A16GE4.>D40<B4. >C4 
G4."."E.F16EC4.E.F16EC4.F4FD4.E4EE4." 

F0RI=)T01 :PLAYt2."A4A>C.<B16AG.A16GE4 
."F4FA.G16FE.F16EC4.":NEXT 

PLAYt2 . " >D4DF . D16< B>C4 . E4 . C<GEG . F 1 6DC 
R8"."G4BG.F16GE4.G4.E4C<B4B>C2.R8" 




ELECT 
KOKUHAKU TIME- 



0=?Z? h9-^li(F3U©xb^ K U yO • tw 

y°zs as- mzmt^i^^o eat? a 



i 'ssasssasssBaaasBBaaaaaaaaasaaa 

2) 'SB ELECT 38 

3) 'SB -ARU POP MUSICIAN NO 38 
40 '38 KOKUHAKU TIME- SB 
50 '88 BY NOZOMU SHIBATA 88 
60 '38 [1975- ] 88 

70 'a&aaBBsaeaaaaesaaaaeaaaaaaaasB 

8) CLS 

9) _MUSIC(1 .0.1.1.1.1 . 1 .1 ) :CLEAR3000:SOU 
ND7.49:SOUND6. 18 

1)) _TRANSPOSE<*5))) 
110 _TEMPER( 8) 
12) _BGM(1) 
130 DIM AX<15) 

14) FORI-0TO15 

15) READAS:AX(I)=VAL("&H"«AS) 

16) NEXT 

17) _VOICEC0PY(AX.863) 

18) DATA ). 0. ).))BB 

19) DATA ). ). 0.0B0B 
2)0 DATA 2001 .))F4.0))),)))) 
21) DATA 3F)2.E)75.))8).)880 
220 DEFSTRA-Z 

238 T""TU4":PLAYt2.T,T.T.T.T.T.T.T.T.T 
240 D="B4B4B4B4 



/u£5.ttA/?:£or-6,L\*ii/u--jr«.. 

■^(icMWTEMPLE DEL SOU 

HKZMzmvZ? 9 r <f BBtt 'J V 

■oZ^&Z-^&ol}-? SKAC-fco 



-A^tU-5©Bffi^^y«tP^5? 
HASEMAKO r: &-rcM-'T'3g£ 



©r«iL\r-^r<caLAj 

■ELECT~«-57K-y7 = a-yi/ 
v I/0KOKUHAKU TIME- 

>t27K©tiC-Pn>S^'V^«-<X 



Ar 



FMm^Hj <\(D®mmm*p/BBmm(Dmmim'<-z; 



258 P2«"S1R4M1588C8C16C16R16C16R16C16C8C 

8R4SM15BBC8C16C16R16C16R16C16C16C16C16C1 

6" 

268 05-"V13B4B4B4B4B4B4B4B4" 

271 R="V13R4R4R4R4 

288 P1="R4SM15BBC8C16C16R16C16R16C16C16C 

16C16C16" 

298 P»"R4SM158BC8C16C16R16C16R16C16C8C8" 

388 M*"B3807l 1 6V1 SC8C8C8CCR1 6CCCC8C8" 

318 M1«"83807L16V15C8C8C8CCR16CCCC8C8C8C 

8C8CCR16CCCC8C" 

328 B«"V1383303L8C16R16G8E-C16C16R16C16G 

8E-16R16C":B1="02t8B-16R16>F8D<B-16B-16R 

16B-16>F8D16R16<B-" 

338 B2»"02A-16R16>E-8C<A-16A-16R16A-16>E 

-C16R16<A-8 

348 B0="V1383303L8F16R16>C8<A-F16F16R16F 

16>C8<A-16R16F":BP»"03L8E-16R168-8GE-16E 

-16R16E-16B-8G16R16E-" 

358 BQ="030-16R16A-8FD-16D-16R16D-16A-F1 

6R16<A-8 

368 V="8206V14F1E-1D-1E-1":V1="B206V14C1 

<B-1A-1B-1" 

378 SB=BO*BP*BP*B0:CB=BO*BQ>BP*BO 

388 S4="068B6L8V14C<V13GV12>CV1 1<G>V18C< 

V9G >V8CV7< G >V6C<G >V5C< G >V4C< G >V2C< G32" 

398 L""L16VK8Bfl05CC<B-S->CC<GG>CC<G G 8 

-B->CCC<GB->CD<B->CDE-E-DDCC<B-B-" 

488 L1=*L16VU8390SCC<B-B->CCCGG>CC<G G 

B-B->CCC<GB->CD<B->CDE-E-DOCC<B-B-" 

418 L2=">CC<B-8->CC<GG>CC<G G B-B->CCC<G 

B->C0<B->C0E-E-0DCC<B-B-32" 

428 F1="l16v1388505FFE-E-FFCCFFCCE-E-FFF 

CE-FGE-FGA-A-GGFFE-E-" :F"F1»F1 

438 S1="06B86L16V14CC<V13GGV12>CCV1KGG> 

V1BCC<V9GG>V8CCV7<GG>V6CC<GG>V5CC<GG>V4C 

C<GG>V2CC<GG" 

448 D|."B16M16M16M16B16M16M16M16816M16M1 

0Ml6b16Ml6M16M16 

458 S3""068B6L16V14CC<V13GGV12>CCV1 1<GG> 

V18CC<V9GG>V8CCV7<GG>V6CC<GG>V5CC<GG>V4C 

C<GG>V2CC<G" 

468 PA="8B8V15L160FFE-E-FFCCFFCCE-E-FFF 

CE-FGE-FGA-A-GGFFE-C" 

478 01 ■" B4B4B4B4B4B4B4B484B4B4B4B4B4B4B8 

B16- 

488 05="B4B4B4B8B8" 

498 I-"R288B0B4<GGG>2" : 11 ="05R28B8<CCC>2 

588 I=-R288BV11ll6084<GGG>2R4R8F8R8FFR16 

FR16FR8E-8R4R8E-E-R16E-R16E-F8F8R8FFFFR1 

6F32" 

518 I2="R28B8V11L160B4<E-E-E->2R4R8D8R8D 

0R16DR16DR8C8R4R8CCR16CR16CD8D8R8DDDDR16 

032" 

528 I1="R2V11BBBL160B5<CCC>2R4<R8B-8R8B- 

B-R16B-R168-R8A-8R4R8A-A-R16A-R16A-B-8B- 

8R8B-B-B-B-R16B-32" 

S38 M2=M»M:A3=AB»A1 : 02=0*0: P2=PtP:BB = 8*B 

1 :BA*B2+B1 : B8 = B1 *B: P3 = P*P1 :A4=AB+AB 

548 BR=BO»BP:BS=Bu»BP:BT=BR*BS 

558 M4»M2tM2:A6«A3»A3:04»D2tD2:P4=P2»P3: 

BC = B«*BA:A8=A4tA4:L4=L*l:S2=SHS3:L3 = Ll» 

L1 

568 A="V1203848R4C2. R1"*S4 

578 A1="L1605B88V14FGA-B-A-GFGA-B-A-GFGA 

-B-A-GFGA-B-A-GFGA-B-A-GFGA-B-A-GFGA-B-A 

-GFGA-B-A-FG>E-<8-GE-B-GE-<8->GE-<B->GE- 

<B-G" 

588 A2="L160B8BV14FGA-B-A-GFGA-B-A-GFGA- 

B-A-GFGA-B-A-GFGA-B-A-GFGA-B-A-GFGA-B-A- 

GFGA-B-A-FG>E-<B-GE-B-GE-<B->GE-<B->GE-< 

598 03«"B4BM4B4BM4B16M16M16M16B16M16M16M 

16B16M16M16M16B16M16M16M16" 

688 K»"8B6V1505F2. >C4<B-2 . R8L16GA-B-2R16 

GA-B-A-GFE-F2. 

618 K1--OF2. >C40«2.R8L16CDtE-2R16E-FGA-G 

FE-F1 

628 F3="L16V15B6305FFE-E-FFCCFFCCE-E-FFF 

CE-FGE-FGA-A-GGFFE-E-FFE-E-FFCCFFCCE-ErF. 

FFCE-FGE-FGA-A-GGFFE-E-16 

63B PLAY«2.""."".M2.".""."".D3."" 

648 PLAY#2.""."".S1."".""."".D5."" 

658 PL AY#2 . " " . 14 . S2 . M4 . BC . " " . D4 . "" 

668 PLAY82 . "" . L4 . S2 . M4 . BC . " " . D4 . P4 

67B PLAY82.I . L3 . "" . 12 . BC . 1 1 . D4 . P4 

688 PLAY82.I .L3.A . 12 .BC. 1 1 . 04. P4 

698 PLAY*2."".A1 .F .V .BT.M4.D4.P4 

788 PLAY82.A2.A1.F .V .BT.M4.D4.P4 

718 PLAY82.K . "" . F3. "" .SB . "" . D4. P4 



728 PLAY*2.K1."".F3."".CB."".D4.P4 
73B GOTO 658 




You cannot stop any more 



^nBTHE WALKS^VCD^aa 

tk©x- v j € tf >> ? a ym. C7r u v-tivm 

(DMfflt,. -C5:7Jl<-7,iii7lC&ori\3cfc 
z>-C?o LUVfc d5U5^#(Z)1itt©Bo 

18 ' You cannot stop any more . COMPO 

SED By C-vfm'j 

2B CLEAR4896:CALLr1USIC(1 . B . 1 . 1 . 1 . 1 . 1 . 1 ) 

3B CALLTRANSP0SEI2B) : OEFSTRA-H .K-V: DEF IN 

TI.U-Z:CALLPITCH<442) 

48 CALLTEMPER(9) :S0UND7.&B1 1 BBB1 :SOUND6, 

26:POKE&HFA3C.1B 

58 DI(1AX(15) .BX<15>:CALLVOICECOPY(836.AX 

) 

6B FORI=BT015:8X<I)=INT<AX(I)/24.8) :NEXT 

I 

78 CALLV0ICEC0PYIBX.863) 

88 ' MML 1 list 

98 AA="B6306V1507L8C*4<BAG4FtEC»4EF*G4AB 

*:AB=">C*R8R2.R1":AC=">ER8R2.R1":AB=AA*A 

B:A1=AA+AC 

188 A2="0604Ct<BA4GF+04EF*G4AB>C«4<BAG4F 

+£C*4EFtG4AA»" 

1 1 8 A3="05R804B4Q8B«B2R804A408A4 . G*AR1 Rl 

128 A4«"06R804E408ESE2R80404Q804.CC*R1R1 

138 ' MML 2 Hit 

148 BA="V14L8Q703A>C+<A>C*<GBGB":U8="824 

"+BA«BA«BA«BAt6A+BA:VB="85"tBAtBA+BA«BA* 

BA*BA:BB="824"*BA*BAtBA+BA:U2="85"tBA+8A 

♦BA«BA 

158 B1="04V80ADADADA<0ADADADAA>E<A>E<A>E 

<A>E<<A>E<A>E<A>E<A>E" 

168 BB="03V12E04G*408G*EG*EG*004F+408F«0 

F+0F»":BC="02Q7A>Ct<A>C*<A>C*<A>Ct":B2=B 

B+BC*BC:B3=BB+"R1R1" 

178 ' MML 3 list 

188 CA="V14L8u704R8ER8ER80R8D":Ul="824"t 

CA+CAtCA*CA*CA*CA:V1-"85"<-CA»CA*CA*CA»CA 

♦CA:CB>"B24"»CA+CA-fCA+CA:V2 = "B5"»CAtCA»C 

At-CA 

198 C1="05V8R8DR8DR8DR8004R8DR8DR8DR8DR8 

AR8AR8AR8A03R8AR8AR8AR8A" 

288 CB="03V12R8Q4B4Q88R8BR8BR8u4A4a8AR8A 

R8A":CC="03Q7R8ER8ER8ER8E":C2=CB*CC*CC:C 

3=CB*"R1R1" 

218 ' MML 4 list 

228 D8 = " B3304V 1 5L8Q6DDF +Q3A4D6AG+ADDF »AA 

AG+A<AA>C*Q3E4Q6E0*E<AA>C*EEED»E" 

•238 OA="833V1204a8R2R8E16Gtl6B16G*16ER2R 

8D16Ft16Al6F+16D":DB="85V1402u7AA>C»EGGF 

♦E<AA>C«EGGAA*":D1=DA+0B:D2=DA«"R1R1" 

24B • MML 5 list 

25B EB="812Q6V1304L8R2R8FtEF*R2R8F+EFtR2 

R8C*<B>C»R2R8Ct<B>Ct" 

268 E 1 ="86305R8Q4E4Q8E&E2R8a404a8D4 . DC + R 

1R1" 

278 E2*"05R8Q4B4Q8B&B2R8Q4A4Q8A4 . G*AR1 Rl 

28B ■ MML 6 list 

298 F»="B33L16V1203I18R1R1A>C«AE<A>C»G*E< 
A>C+GE<A>CtF*E<A>C*FE<A>C+D»EA8E32D*3203 
2C»32<A8" 



388 ' RHYTHM MML 7 (FM) list 

318 R="8A15CB!H8H8S!H8H8":RA="H8H8S!H8H8 

" : RC»" B ! H8H8S ! H8H8" : RD=" HS ! 1 2S ! 1 2S ! 1 2M ! 1 

2M!12M!12" 

328 R»="R1R1"*RtRAtRC*RA»RCtRA+RC*RD 

33B RE="H8H8H8H!S16S16":R1=R*RA*RC*RA*RC 

♦RA»RC*RE 

34B RF="H8H8HS16S16Sl6S16":R2=R*RAiRC*RA 

♦RCtRA+RC+RF 

358 RG«"CB!H8H8S!H8B!H8B!H8S!HBH8H8" :R3= 

RG*RG*RG»RG 

368 RH="CB!H8HS!4SI8H8H8S!H8H8":RK="B!H1 

8H16H16S!H8H16H16" 

378 R4»RHtRH*RK-tRK»RK*RK:RS = RH*RH*"R1R2. 

R8B!S!16S!16" 

38B ' RHYTHM MML 8 (PSG) list 

398 P="V12L8SBM5B8CCM3BBBCM58BC":PA="V15 

R1S4M8eeeCl":PB="L4M48B8CC" : PB=PA*P*P*P» 

P+P+P+P+PB 

4BB PC="L8M5BBCCM2BBBCM5BeCCCM38BBC4":P1 

=PC*PC+PC*PC 

418 PD="M7BBCCM7eeBCM7BBCCM7BBBCM7BBCC" : 

P2"PD*POtPO*PD 

42B P£="M5BBCM4«B8C4CM5BBCM3B8BCM58BCM5B 

8BC":PF="MSeBCC16C16M3BBBCM588C16C16":P3 

-PE»PE*PF*PF»PF*PF 

438 PG="R1R2.R8M4BBC16M3BBBC16":P4=PE»PE 

*PG 

44B • PSG MML 9 list 

458 G-"L16V1lO5AO6C»EC+05AO6CtEC*O5GB06D 
058GB06D05B" :GB="R1 Rl "♦GtG+G*G 

468 * Inter --v music list 

478 P5*PAtP*P+P*PB:G1="R1R1"»G*G:R6»"R1R 
l"*R»RA*RCtRD 

488 ' TEMPO 

49B T="T17B":PLAY«2.T.T.T.T.T.T.T.T.T 

5BB * PLAY MUSIC 

51 B PLAYt2."".UB.VB.U1 . V1 ."" . RB . P8.GB 
528 PLAY«2.AB.BB.CB.""."".F1 .Rl .PI 
53B PLAYt2.A1 .B8.C8 .""."" .F1 .R2. PI 
548 PLAY#2.A2.B1 .C1 .01. EB . "" .R3. P2 
5 58 PLAY#2.A3.B2.C2.t>1 .E1."".R4.P3 
56B PLAYt2 . A4 . B3 . C3 . 02 . E2 . FB . R5 . P4 
57B PLAY*2 , " , BB . C» . U2 . V2 . "" . R6 . P5 . G1 

58B ' addition music 

598 F1="8406V13Q7L8R1R1C*4<8AG4F+ECt4EF+ 

G4F»E" 

6BB GOTO 528 
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©»'/.(fnswn 






otg^L/rnfc©tf#!ctt*--y • a- 

^~Cto 7XU*©g*ilJ^ofc<a5, 
SBBbUU/KezL^- • ZzL-V^yO)mm 

m. ®£ftfo?tzz>mjmi''Zfrz<tcisi^ 
j ■ ^-^©ttwca)gLyrL^So 

18 CAILMUSICIS.8.1 .1.1.1.1.1.1) :CLEAR188 

B:DEFSTRA-R:CALLTEMPER(8) 

28 DIMDAXI15) :FORX=4TO15:READDA:0AX(X)=V 

AL("SH"tOA) :NEXT:CALLVOICECOPY(DAX.B63) : 

CALLVO ICE ( 863 . 863 . 863 . 863 . 863 . 863 . 863 1 

38 DATA BBB. A. 8. 8. 2572. 1 194 .48 . B . 331 .145 

3. 88. 8 

4B A«"V11Q7EBBAB4A4F*GF*GF*4E4EBBAB4A4F* 

GF*GE20«E>EDtE4E4<AEBE>ED«DC«C4<BA4B4V8B 

4V6ElV11Q4EBA*B>C<BA+BFt16G16F*16Gl6E<B> 

B4B4A+BA+B>E4<B4A»16816A«16B16GG«F+4E4EB 

A*B>C<BA*BFt16G16F*16G16E<B>B4B4A*BA*B>E 

4<B4A*16B16A*16B16GG+Ft406E8." 



■You cannot stop any more 



>/-K«Miza<-rst*ivu^tj 

■35fe5f ©A-x-f- • HHKLi 



■BINGO 

■)H3i» ri JX5AJUfro«as>tii 



J LeTBBS/'vtf*!!?;*?^-., 

mm^m-yy^a-h 




SB B="V607EF*GAB4>C4<BlEFtGAB4>C4<B4B4B2 

>D*E<B4>E4<B4A4B4G4A4V4E4Ft4G4F»4Q4EF*GG 

(17E2V2B1SB1&B1&81&B1&B1&B1&B2. . 

60 C="V2Q7E&ESE&EESESESEESESESEE&E&ESE" 

70 R1="R32":R2="R16":D=R1*A:E=R1*B:F=R2+ 

A:G=R2*B:P="T92L805":Q="T92L106":PLAY#2. 

P.P.Q.P.P.P.P 

SB PLAY*2.A.B.C.D.E.F.G:G0T08B 



l mm m 



BINGO 



■e«« Mimmmm) 



f)©A^<¥iJsyr*^LMittiio 3®iSb 



18 CALLMUSICI1 ,0.1,1.1.1.1) 

2B CLEAR1500:CALLTRANSPOSE<-50> 

38 TS="T150" 

48 ' 

58 ABS="06a8L8V15a3DEFG" 

68 A1S="A2. >C4<82B2E1 .DEFG" 

78 A2$="A2. >L4CDEDE<G1 .L8GA>CD" 

8) A3S="06L16E8EDE8EDE8F8E4D8DCD80C<L88A 

Q8G4FGABAGL4FGAL8GA>CD" 

9B A4$=LEFTS<A3$.27)+"CDER16CDER16L8Q8EF 

EDL4EFE<GL8DEFG" 

118 B0S="O507L8V12B49" 

128 B1$="GAGFGR8G16A16>C<GAGFGR8G16A16>C 

<FGFEFR8F16G16AFGFEL16DEFR16EFGR16L8" 

138 B2$=LEFTS<B1S.53)t"DEFGA8>CD" 

148 B3$="EEER16E8F8EFEDC8R8DDDR16D8E8DED 

C<L8BB>CDEDCDE16F16E16R16DC<BAGA>CDL16" 

158 B4$=LEFTS(B3S.38)*"CDEFEDCDL16ER16EE 

ER16EDC<AGFEFL8" 

160 ' 

178 C8$="03Q5L16V1lal2" 

188 C1S="G8GA88>D8<G8GAB8>D8<G8GAB8>D8<G 

8GAB8>08<F8FGA8>C8<F8FGA8>C8<F8FGA8>C8<F 

AG>C<FGAB" 

19B C2*=LEFTS(C1$.70)*"FGAB>C<B>CD" 

28 8 C3S="EEER16R2.DDDR16R2DDDDCCCR16C8C8 

CCCR16C8C8DDDR16D8D8CCCR16DDDR16" 

218 C4$=LEFTS(C3$.21 ) +"EEER16DDDR16CCCR1 

6DDDR16EDC<B>EDC<B>C<B>CDEDE<E" 

220 ' 

238 D0$="O5Q7L8V12a5" 

24B D1S="GB>DG<GB>DG<G8>DG<G8>DG<FA>CF<F 

A>CF<FA>CF<L16FA>CR16<FA>CR16L8<" 

258 D2S=LEFT$(D1S.45)+"FGA8>C<B>CD" 

268 D3S="EEER16R2.D0DR16R2DDDDL8C<BAG>C< 

BAGAGA8>C<B>C0L16" 

278 D4S=LEFT$(D3$.21 ) *-EEEEEEEEEEEEEEEEE 

EER16EEER16EDC<8AGFR16L8" 

28B ' 

298 E0S="O3Q5L8V10a33" 

388 E1S="G4GGG4GGG4GGG4GGF4FFF4FFF4FFFFF 

F" 

318 E2S=LEFTSIE1$.28)+"L16FFFR16FFFR16" 

32B E3$="8GGR16R2.FFFR16R2FFFFE4L8EEE4EE 

F4FFL16FFFR16FFFR16" 

33B E4$=LEFT$(E3$.21 > ♦"E8EEE8EEE8EEEBEEF 

FFR16FFFR16FFFR16L8FF" 

34B ' 

358 FB$="V15SA8" 

368 A$="BCH!8B8H!S8H!8BCH!8B8H!S8H!8":B$ 

="BCH!8B8H!S8H!8BH!S88S8H!S16S16H!S8" 



37B F1$=A*+A$*A$«B$ 

388 F2$=A$*A$*ASt"BCH!8B8H!S8H!88H!S16S1 

6BS16S16H!S16S16H!S8" 

39B F3$="BCS16S16BH!S16H(16CH!8H!16H!16C 

H!8H!16H!16CH!8H!16H!16BCS16S16BH!S16H!1 

6CH18H! 16H! 16CH18H! 16H! 16CH ! S1 6S 1 6H ! S 1 6H 

!S16"+AS+BS 

400 F4S=LEFT$(F3$.115)»"BCS8H!S16H!16BCS 

8H1S16H! 16BCS8H1S16H! 16BCS8H !S1 6H ! 16BCS1 

6S16H!S16H!16BCS16S16H!S16H!16BCS8B8H!S8 

H!S8" 

418 ' 

42B PLAY#2.T$.TS.T$.T$,T$.T$ 

43B PLAY#2.A0$,B0$.C0$.D0$,E0$.FB$ 

44B PLAY#2.A1$.B1S.C1$.D1$.E1S.F1S 

458 PLAY#2.A2$.B2J.C2S.D2$.E2S.F2$ 

46B PLAY#2 . A3 J > B3$ . C3$ . D3$ . E3t . F3$ 

478 PLAY#2 . A4$ , B4$ , C4S . D4$ , E4$ . F4$ 

488 G0T044B 



i^me/>KP-A 



Z?l^tziT&Zfo : ES(D'\ zxDmmtu 
3fflA\ UXA%tiZ$-C£frtZttfZ°Z 

&fi\ t\,\ozto -Di\-Di\mKTy'jcom 

y(D\^ a Uhjt^m<t v ^<^ZZ^^ i ii 
U5i;^5^rK^A©y^->7jM / FD3/u 

IB _MUSIC( 1 .0.2.1.1.1.1) 

28 CLEAR900 

3B DEFSTRA-E.T.R.N.Y.X 
i,i S0UND7,49:S0UND6,1 
58 X="V9R16":Y="V11" 
6B 'MELODY 1 



98 A3=" 


188 


A4 = 


118 


A5 = 


120 


A6= 


138 


A7 = 


140 


A8 = 


150 


A9 = 


168 


•ME 


178 


B1 = 


180 


B2- 



78 A1="3206L16D4EF*GAB8&BA8&AGB" 

88 A2 = "F*R16ADR16F*R8L24EFGAB-ODC<B-AGE 

36L16F+8R16GR16AR16D&D4<B>D8" 

"CtDECtDEF+D" 

"<AR16>DR16EF+R16GR16AR16BGF+G" 

"F»8L24EDC*L16DR16<D8>" 

"a206E8R16CR16<GR16E4R16>ECE8" 

"F*8R16DR16<AR16F»8GAB>C*DEF+" 

"F+8L24GF*EF+EDEDC+L16DR16<AR16D" 

LODY 2 

"a205L16F+4GAB>C*D8&DC+8&C+<B8" 
"AR16>D<F*R16AR8L24>CDEFGAB-AGFEC 

198 B3=X*A3:A3=Y+A3:B4=X»A4:A4=Y*A4 
2B0 B5=X*A5:A5=Y+A5:B6=X*A6:A6=Y«A6 
218 B7="S206C8R16<GR16ER16C4R16>C<G>C8" 
22B B8="D8R16<AR16F+R16D8EF*GAB>C+D" 
238 B9="D8L24EDODCKB>C + <BAL16AR16FtR16 
<A" 

248 'BASS 

250 C1="812V1 102L16DR16>DR16CF*DR8<GR8>G 

<F+GA" 

268 C2="DR16>DR16CF*DR16L24CDEFGAB->C<B- 

AGE" 

270 C3="03L16CCC<G>CCCOC<COC<CCGC" 

28B C4="DDD<A>DDDD>D<DD>D<DDF+D" 

298 C5="DDR4R8DR16<AR16D" 

300 'TEKETEKE 1 

318 D1="30V9O5L16D<D>DDD<D>DDG<G>GGG<G>G 

G" 

320 D2="D<D>DDD<D>DDS23V1505L24AGEAGEB-A 

GB-AG" 

330 03="D<D>DDD<D>DDa23V1508L24C<B-GEC<B 

-GEC<8-GE" 

348 'TEKETEKE 2 

350 E2=-a23V13L2405R2EDCEDCGFEGFE" 



368 E3="R206GEC<B-GEC<B-GEC<B-" 

370 'DRUMS 

38B R="V9fflA15B!H16B!H32H32H16H32H32SH16H 

16H16B!H16":R1=R+R 

390 R2=R*"S24S24S24S24S24S24SM24SM24SM24 

SMH24SMH24SMH24" 

40B R="B!H16H16SH16H16B!H16B!H16SH16H16" 

41 B R4=R*"S24S24S24S24S24S24SM24SM24SM24 

SMH24SMH24SMH24" 

42B R5="SH16SH16R8R4SHBSH8SH8S32S32S32S3 

2" 

430 'NOISE-DRUMS 

440 N="L16S0M300CCR8M250BC8R16M3B0C":N1= 

N-fN 

450 X="C24C24C24":N2=N*"M600"tX«"M12B0"* 

X+"M2200"+X+"M3500"*X 

460 N="M3B0C8M25B0C8M300CCM2500C8":N3=N* 

N 

478 X="C24C24C24" : N4 = N«"M680" +X»"M1 288" + 

Xt"M2200"-»X + "M3500" + X 

480 N5 = "M2500CCR8R4CBC8C8M1200C32C32C32C 

32" 

490 'IMt!*^ — 

500 PLAY*2."V15"."V15".""."".""."".""."V 

10-.-V10" 

510 FORI=0TO1 

520 PLAY*2.A1 .81 .CI ."" 

530 PLAY*2.A2.B2.C2." 

540 NEXT 

550 FORI=0TO1 

560 PLAYt2.A3.B3.C1 .01 

570 PLAY#2.A4.B4.C2.02.E2.R2.N2.A4,B4 

580 PLAYt2.A5.B5.Cl.D1."".R1.N1.A5.B5 

590 PLAY#2.A6.B6.C2.D3.E3.R2.N2.A6.B6 

600 NEXT 

618 PL AY#2. "VI 5". "VI 5". •"."". "".""•"" 

10"."V10" 

620 PLAY#2.A7,B7.C3. 

630 PLAY#2.A8.B8.C4. 

640 PLAY#2.A7.87.C3. 

650 PLAY#2.A9.B9.C5. 

660 PLAY#2. ""."".""• 

670 PLAY02. "".""."". 

680 GOTO510 



'.R1 .N1 .A1 .B1 
'.R2.N2.A2.B2 



.R1 .Nl .A3.B3 



R3.N3.A7.B7 
R4.N4.A8.B8 
R3.N3.A7.B7 
R5.N5.A9.B9 
R1 .Nl ,""."" 
R2.N2.""."" 
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r, cfc<?Srn3t1^Qo TiWVXQ)^- 
Kc!: r tf->jtUorSttB'30-5^©C, 
K-7,(DWl£ft'\h J ZZtsO)-C, ^SfcSffi 

-Dzm^c x-vs*(»r s zcD<i>iwm 

l^P^A^fESOtiBtU^Uo 

10 CALL MUSIC(0.0.1 .1 .1 .1 .1 .1 .1 .1) 

20 CALL VOICE(a5.a5.841 .841 .341 .341 .316. 

316) 

30 P0KE&HFA3C.24:P0KE&HFA5C.24:P0KESHFA7 

C.24:POKE8HFA9C24 

40 A$="03L8FEEE-FEGG-AA-BB-AA-GG-FEFG-EE 

-DD-CD-DD-FEDD-GG-AA-BB-AA-GG-FG-BB-GG-" 

58 B$="06L8EEDDCCDDEER2. FFEEDDEEFFR2.DOC 

CR2EEDDR2" 

68 C$="06L8R16CC<B8AABB>CC16R2.R16DDCC<B 

B>CCDD16R2.R16<BBAA16>R2R16CC<BB16R2" 

7fl D*="07L2R1RB-SB-8R1R4.B-&B-8R2R8B-R2B 

80 PLAY#2."T90V13"."T90V13"."T9BV13"."T9 

0V1 3" . "T90V1 2" . "T90V1 2" . " T9BV1 4Y38 . 32" . " 

T9BV14Y39.32" 

90 PL A Y#2 . AS . AS . B$ . BS . C$ . C$ . DS . DS 

180 GOTO 90 



Notes' notes J-V-J-V 
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mzoftoh-eto zivy-'jzio a 

oi\z>mmtcfri3t>frD-ctteo riio 

(Ore) 

*U^r-^C®5 r _jB. r CALLj 



70 




o 



! 

y\ 

b 




1 



K 

CO 

n 
m 



i 

X 



& 



t-^TRWX 7XUA© 

P^tfvK^X^&SjI^t: 
-hJUXttfeClflDflL.fcft 

*&?'Ji/-X-rr -Hicia-y- 
-7-=a-y'>^ uy-s- 

3©2'Jb-x©@*£tt s v 
LmKoliL^(C^D*-ro -e- 

^©7. ^ y Traiiwpgw c ^ r- 

t :J:-S<i:;*a■7 ! ^' 
;:©m©IIsIrf^£J13d: 
Dm^C-B#-A7 
tl^^4i— ■ +-"£' 1 gl" 

a-KB7rju^'>©4ons 

(1 'J\ffiit4[elP-K^fflsiC 
fc'JXArZffla-KflS©^ 
li£fl|§fc& 35Li5©£2'J 



tmm-y-yyibyny^k ^^au 



.A.G.F.G.F8E2. 



B-.B-.B- 



6. 
A. 



-sTUi-tJ-A.) 



10 CLE AR500:CALLMUSIC( 0,0,1 ,1,1,1,1,1,1) 

20 A1$ = "S)36O6L4T220V15" 

30 A2$="C8DC8<AR8R2.R4A8AA8>DD8FF8G.CC.< 

B-8A.R2.G.A.B-. >C.<G.AB 

40 B1$="a48O7Q3T220V12" 

50 B2$="R8A.A.A.A.A.A.A 

G.B-.B-.B-.B- 

A." 

60 B3$="R8F.F 

E.F.F.F.F.F.F 

70 B4$="R8D.D 

C.D.D.D.D.D.D 

+ ." 

80 C1$="a33O3Q4T220L4V15" 

90 C2$="312O3Q4T220L4V12" 

100 C3$="R4.A8DR8AR4.D8ER8FR8R2.R4G8CR8G 

R4.C80R8ER8R2.R4F8<B-R8>FR4.<B-8>CR8DR8R 

2.R4E8<AR8>ER4.<A8BR8>C+" 

1000 PLAY#2,A1$,A1$,B1$,B1$,B1$,C1$,C2$ 

1010 PLAY#2 , A2$ , " R1 6" + A 1 $ , B2$ . B3$ , B4$ , C3 

$,C3$ 



.F.F 
,F.F, 
,D.D. 
.D.D. 



F.F 
E.E, 
D.D, 
.C+. 



.A, 

B-. 

F. 

E. 
D. 

C + 



G 
A 

E, 

E. 

C, 

C+. 



G.G 
A. A, 

E.E 
E.E, 
C.C, 
C + 



E.E.E. 

C.C.C. 
C+.C+.C 



^xO^O^ofcfflffliie© 

Ot^ortlSto 3:35, >(. 

<DUitzl,(D7j')lstzv S(*pg) 
©SBfl-tfUoCltWblA.o 

*r, zoim^-btzAjtu 
^fc^t©[cLrn5ffltf\ i; 



GOOD VIBRATIONS WORDS AND MUSIC BY BRIAN WILSON 



-7,0^-r ynx pf-r ©qFeS 

oTUSU ZI-Ktf'JXA© 

P^BSiSc^urus©^ c 

L3 L/^'x^cf U XAfflS£® 
mi;tzJXS>-y\zte^zi^-3-o 

5 i. -o tz%ffikw<s.^-< ynv, 

XO/ft-Jb- v" ■>*-(---£ 

" ©I 988 IRVING MUSIC.INC. 

Assigned for Japan to TAIYO MUSIC.INC. 
Authorized for sale only in Japan. 
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AlGT=feairU*5©fc'o FM§& 
-CM 1 D 1 ^»6LAIHi^6%g<t:a: 



P£nxtf,frc>rFMW£fl© r ;rAj&!§ 

i;7p^-5Ajrie^ufc^i=i©A7 7r- 
v-, -r^7 • esc) r 7©7;uAA ri j'5> 

n7JL/AA&GD^fEU5^i\£To *roB 
eva records frBlMJwwcxcTOl 3?fi 
IS«Sii3Q08P3. F^l^ttt+ISWAVE DIS- 
TRIBUTION (03-3479-6661) ^r 



4H&09 i»i'i«s«sitseftAMi5S) 



■rrCA4<Wi^iteiSi«®l3il^fc®©S 
S^StlyriS, =btt^-7?S!r©T0*^ 

5$BZ<Dmt£(Di:*> a Kr^l3g«©SPx.6 
ftfcA S©f£S&£ IS, ifrg'MKilflMl;: r ft 

s^^tianLy^ijt^^^-To l^u & 

fatdte. m<DJ3tzi:MZO\z&-&£r>izm^ 



OftCL>«>i 



*— , ;:— H>— OT&LM.^j.- 



IB COLOR15.1 .1:SCREEN3 
E 14336* I .VAL("&H"*MID$ 
FFFF7F7F7F3F3F1EB8B88B 
88888888" . I«2tl .2) ) :NE 

8B:A(8)=8:A(1 )=-8:SOUN 
21 UINE(118.12fl)-(15B. 
1781-1138. 168) .12:LINE 
T(138.17B> .12:CIRCLE(1 
:PAINT<138.78) .14 
JB F0RJ=BT01 :Y(J)-Y(J) 
48*J»16B.YU1) .11 . a : I F 
B) .A(1) :Y(ABS(J-1 ) )=68 
SOUND8.15-I:NEXT 
4B NEXT:G0T03B 



.3:F0RI=BT032:VP0K 
("1E3F3F7F7F7FFFFF 
8B8B8BCBCBCBCB8B8B 
XT:Y<8)=1B8:Y( 1 1=1 
D7.56:S0UND1 .18 
16B) . 1 1 .BF :LINE(B. 
-(256.178) .12:PAIN 
38.78) .78.14. , .1 .2 

tA(J) :PUTSPRITEJ. ( 

Y(J)>13BTHENSUAPA( 

FORI=8T015STEP.5: 



SODSIrfc* WI«»-ABUSAN(16«) 



ofco 3©n©£gm&:tf*fc5B> Uofc 
uiKo<bi^rMfil£Lrii£>©/j\ * 
&, -b£-o<Lm^zfo&z>o 

ABUSAN£XMS)tf«ttrn3©» 







1 ONSTOPG0SUB6:STOP0N:GOSUB7:FORI=8T0258 
B : NEXT: COLORS. 1 . 1 :SCREEN1 :KEYOFF :PRINT"D 
9-f iy? 19" :FORI=BT02BBB:NEXT:GOSUB7 

2 DRAWBM1B9. 1 27R3D1 R2U1 R4D1 R2D2L2D1 L3D2 
L2D2L3D1R2D1R2D1L2D4L2D2L2U2L1U2L1U3L1U2 
R4U2L3U4R3U2" 

• DRAW" BP1 125. 126R5D2R4D2L1D2L1D2L4D1R2D1 
R3D2L2D1L2D2L1D3L1D2L1U3L1U3L1U4R2UU2U5 
L3U2R1U1R3U1" 

4 DRAWBM1 2B . 1 32D3L4U 1 R2U 1 R1 U 1 R1 " : DRAWS 
Ml 21 . 139D1R2D3L1D3L4U1L2U1L1U2R1U1R2U1R3 

5 PAINT(11B.148).7,7:PAINT(13B.13B).7.7: 
PAINT (128. 142) .7. 7: PAINT! 119. 134) .7. 7: PA 
INTI118.138) .7.7:GOT05 

6 C0L0R7.15.15:SCREEN1 :PRINT"7v i/7v9":EN 
D 

COLOR 1 .12.12:SCREEN5:LINE(8B.58)-!168. 
18B).15.8F:LINE(18B.6B)-(14B.75).15.BF:L 
INE I 1 85 . 68 ) - ( 1 35 . 75 ) . 1 4 . BF : C0L0R7 .12.12: 
RETURN 



m&n FMmmttm^t:/ 



frM£l\tf m\smimm-K.K\n\{)m) 



vzmwmwj—y itmz>o modern 
m£z£fvi5K>h,mgti\?£0&. ?vz 

SOSUfcrb\^©gg7Vtf SL^VxV (=&« 
^5E!S)o tO&JLf, K. Kim^XM)©A 
4C«§2ff?=fc-r-5£US:5o 




0/<-7'fett<7)A- F»is«-s*)-tt5. a»7)Je<»i*B 

18 COLOR 15.1 .B:SCREEN 1.2.8 

2B KEYOFF:WIDTH29:CALLMUSIC 

3B FORI=BT031 : READA$ : VPOKE It 14336. VAL ( "S 

H"*AS) :NEXT 

40 LOCATE11 .14:PRINT"» k. It'ir 

58 PUTSPRITE 8.(188.881.5.8 

6B PUTSPRITE1 . (132.88) .5.8 

7fl FORI=BT01 :I=-STRIG(8) :NEXT 

88 PUTSPRITEfl. (1 12.84) . 1 1 .8 

98 PUTSPRITE1 . (128.84) .11 .8 

1BB PLAY»2."V15S2308A48A8" 

118 PUTSPRITEB. (189.86) .7. B 

128 PUTSPRITE1 . (131 .86) .7.8 

138 F0RI=8T01BB:NEXT:G0T05B 

148 DATA lF.6e.88.EB.9F.48.2F.17.BB.B4,B 

3. 81 .81 .81 .83.8F 

15B DATA F8.B6.B1 .B7.F9.B2.F4.E8.DB.2B.C 

8.88.88.88.CB.FB 



Cf)l>^)b*mmmsi-^m(D'xy5f>h{]m) 



fe, wmmxz?,, z?i\z>mnw<s.mm 

5L>o AM©<7->5*>A,(MSK ^fflftSB^ 

ft^Z&to cfcblXo 

1 SCREEN6:C0L0R1 . 3 .3 : CLS :COLOR= ( 3. 7 , 7. 7 I 
: DEF INTA-Z: FORI =4T0192STEP8: CIRCLE (255.1 
85) . I ... . .55: NEXT : FORJ =BT01 STEPB : FORI = BT 
039:VDP( 19)=VAL("&H"*MID$("7F7E6D6C5B4A3 
9291888F8E8D9C9BAAB9C9D8E8F88819293A4B5C 
6D6E7F7B7172636455463627178-.I«2*1 .21 ) :N 
EXTI.J 



Bfi** ■AB5Rg-TOM(15«) 



£Z1?%\zA-Dtz(Dfr<Ll\ : z.\£. ft©Hl^ 
fc£=&9C&orU3©tf5R£, tUd? 
-?%.&, STOP*-Z±#>zm&£s 5* 
¥^ymz±,£<Z2:Zl^(DZ, ify^T 

tom^xmsxms^, Rit&nmz?,, 




Oa-y*'JSA.t/r-t.flHBftffl<7)*i.^U , t„ ^J^l 1 ^ 



i SCREEN7:SETPAGEB.8:COLOR15.B.B:CLS:SET 
PAGEB.1 : CLS :P=3. 141 5926535* 

CIRCLE(16.B).16.1....5:CIRCLE(16.8).3. 
1,...5:PAINT(16.12).1:CIRCLE(16.8).15.2. 
.. .5:CIRCLE( 16.8) .4.2. .. .5:CIRCLE( 16.8) . 
12.2.P»3/8.P»9/8. .5:CIRCLE(16.8).9.2.P/8 
.P«9/8, .5:CIRCLE(16.8) .6 . 2 . P»3/5 . P»9/8. . 
5 

3 LINE(4.11)-(28.11).2:LINE(7.13)-(25,13 
) .2: LINE (14. 15) - ( 18 . 15 ) . 2 : COLOR= ( 1 .4.3.B 
) :COLOR=(2.6.5.B) :SETPAGE8.B 

4 RESTORE5:FORI=8TO 23:COPY ( 8 . 1 7 I - ( 32. 33 
) . ITO(X.Y) . 8:READX. Y : COPY ( 8 . B ! - ( 32. 161.1 
TO(X.Y).B:LINE(255.B)-(Xt16.Yt8l.15:FORT 
=8TOl5:NEXTT:LINEl255.B)-(Xt16.Yt8) .B:NE 
XTI :GOT04 

5 DATA31 ,166.33.167.42.178.63.175.99.183 
. 1 56 . 1 92 . 239 . 1 96 . 322 . 1 92 . 379 . 1 83 . 4 1 5 . 1 75 
. 436 . 1 7B . 445 . 1 67 . 447 . 1 66 . 445 . 1 67 . 436 . 1 7B 
. 41 5 . 1 75 . 379 . 1 83 . 322 . 1 92 . 239 . 1 96 . 1 56 . 1 92 
.99.183.63.175.42.178.33.167 
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r A V^Tf— ztAj^iDlslMMMzp / foWWM&B}^— V (JssawrofcSBS^-ya*) 



*-t7) 3-:J— W}|gypy7A[j:, *EP=CS3(RAM8 KULh)CSa2/2+ffl- * =ES32/2+( V R A M64KfeUi) 
** = E32/2+(VRAMI28K)ffl, * * * = E3 2 +l«Tt 



Giants-18 mitmm-vymGm) 



&m<DAmz?z\zmzm-£zi\2> Ea 

tfMI)il/fc<!;S©K-7>1z-,IL/ttfcU'Vv 

S«tf U-5-*MClllql^;±a Ur U51?i#il^ 
'©1AA\ 3©1? 

©fESO&A, 18 

Lbfcl«Cfl« 







1 SCREEN2:C0L0R1 .11 .11 :CLS 

2 LINE! 100,581- ( 188, 151!) . 1 .B 

3 LINE(21B.88)-(12B.8B> .1 

4 LINE-(12B, IBB) .1 

5 CIRCLE (115. 115) . 1 5 . 1 . 1 . 3 . 5 . 1 . 1 : PAINT (1 
55. 6B) .1.1 

6 FORI=8T05B:X=RND( 1 )«68+12B 

7 Y=RND(l)»7fl+88:PSET(X,Y) .1 

8 NEXT: LINE ( 18B . HB ) - ( 155. 138). 8: CIRCLE! 
155.145) .2.1 

9 PAINTI155.U5) .1 

10 G0T01B 



tL/TR— S *B*SS-BUTAX(15«) 



CO P Yw5fi£ffi o tz%W(Dim<D<PT : b 
IfiftffltfBUTAX^>(MSX)© r TU 
/K-Sjo &A J r'feni\t>6+-£jirr£, A 




OA»l*<*5£?ftX#fc„ LfcX>i;«KS* i *<'i- 3 T. £A ; 

1 COLOR. B. B : SCREENS : DEFINTB-Z : DIMA ( 134) • 
F0RI=BT0255:LINE!I.B)-<I.212> ,RND(1 >«15 + 
1:NEXT:C0PY(92.99)-(163.127)T0A:CIRCLE<1 
27.64) .6B.B: CIRCLE! 127.2121.11B.B...1 2' 
PA I NT (B. 8 I .B:C0PYAT0(92.99) 

2 FORI =15T01STEP-1:C0L0R=( 1,2.7,31 : SOUND 
8.15:S0UNDB,I«17:NEXT:S0UND8,B:AS=INPUTS 
(1) : FORI =1T01 5: COLOR* (1,8.8. 8) :SOUND8.15 
: SOUNDB. I »1 7: NEXT: SOUNDS. B:A$= INPUTS (1 ) ■ 
G0T02 



;£$ 



t±m®-TOM(.\5M) 



1 COLOR.B.8:SCREEN5:CLS:S=12.5:R=B:DIMY( 
13) :C0L0R=(15.B.B.i) : COLOR* ( 14.B.B.2) 

2 F0RM=BTO13:Y(M)=M«rt+M:NEXT:SPRITE$(B)= 
CHR*t&H1B)tCHR$(&H18)+"BBxxx8":CIRCLE(12 
7.1981.162. 14. . . .4:PAINT(127.19B) .14 

3 R=R+S:S=S-.5:C=C+(C=13)«13+1 :CIRCLE(12 
7.19B) .R.C, , . .4:IFR=162THEN4ELSE3 

4 FORN=8T01 : C (N ) =1 -N : NEXT : M=2 

5 F0RN=BT01 :C(N)=C(N)+(C(N)=13)»13+1 :COL 
OR=(C(N) .B.B.(2-NI«2):NEXT 

6 PUTSPRITEB. (125.YIM) ) , 1 5 :M=M+ (M=1 3 ) »1 3 
♦ 1 -.GOTO 5 



ZtlkM** mmmm-mm^um 



zi^t(DUhtc\fa, mxmt. a#:x\ 
z. mmtuosbtzv ii-?z\z>mimmz 

ffi¥lClS£U5^5©AMW*ri,\l.&35o 




10 C0L0R15,B.8:SCREEN8:SETPAGE. 1 :CLS:DRA 
W"BM18B.le8C16R6G4L6E4Bt118 8,1B1G2BM1B4.l 
B1G2" : PAINT (1B1 .182) . 24 . 16: DRAWBM1 58 . 1 5 
BC254R3FD2GL3U3" : PAINT I 1 52 . 1 52 ) . 255 . 254- 
COPY! 1 58 . 1 SB ) - ( 1 55 . 155 ) .1T0 (58. 58) ,1 
28 DRAWC254BM51 .49U6BM61 . 55D6BM53 . 49UEU 
EUBM53.55DFDFDBM55.5BE4BM55.54F4BM55.52R 
5":F0RI=BTO38:PSET<RND<I)«15+15B.RND(I>« 
22+142) ,254:NEXT:C0PY(96.1B8)-(1B6.1B4) . 
1T0(184.18B) .1 .TPSET:F0RI=8T025:C0PY(1B8 
.1BB)-(11B.1B4),1T0(I»8.15B).B:NEXT 
58 F0RI=BT01 :I=-STRIG(B) :NEXT :S0UND7 . 7 : S 
0UND6. 1 :S0UND8. 1 2:F0RI=BT021 3: J* ( ( IM0D2) 
= 8 )«- 188: COPY I J+58.J+4B)-(J+78.J+6B) . 1 TO 
(21 3- I. KB) .B:NEXT:C0L0R1 .255 .255 : SOUN07 
. 7:S0UND6.38:S0UND8. 15:S0UND8. 16:S0UND12 
. 158:S0UND13.8 



l»ffl!«-SKY()4«) 



SKY^XMSX)t> ^HHSEttSBSUHo 

18 COLOR. 14. 14:SCREEN5: LINE (28.781- (234. 
Ufl) ,11 .BF:FORI=1BT05BSTEP28:F0RJ=58T022 
BSTEP58:CIRCLE(J.I) . 28-1/4 . 1 8 .... 3 : PAINT 
(J.I) >1B:NEXTJ.I:0PEN"GRP:"AS#1 
28 F0RI=BT0255STEP42: LINE (I. 168) -(1+48.2 
11 ) .6.BF:NEXT:F0RI=4T05:C0L0R12.1 :PSET(2 
8 8.68) : PRINT* 1 . USING" 1 8 : B#" ; I : F0RJ=8T01 8 
8B-I»1BB:NEXTJ.I:S0UND1 .188: SOUNDS. IS 
38 A=127:B=127:C=6:D=5:E=5:F0RI=BT01B7:L 
INE(A,7B)-(A.14B) . 1 5 : LINE ( B. 78 ) - ( B . 1 48 ) . 
15:A=A-1 :B=B+1 : COLOR= ( 1 8 . C .C . B ) :C0L0R=( 1 
4.D.D.D) : COLOR* (6. E.I .1 ) :C=C- . 84 :D=0- . 83 
: E =E-. 82: NEXT: SOUNDS. B 

48 F0RI=132T095STEP-1 : COLORRND( 1 )«1 5 . 1 5 : 
PSETI1B7.I) :PRINT#1 ."E N D":NEXT 
58 G0T05B 



J3l/<Zll£l>^ * ■»PM-SKY(l4liS) 



3©f^6glit>i;d:5CmCAofc(Z)T, r # 
«©1 ^jlc^SrtV^A^r.OiiofcoLfr 

A±?t§£W&5frl:ti;<p>£&n©7rJt£;D 




18 SCREEN5:F0RI=2T03:C0LOR=(I,3.3.1 ) 

T:C0L0R15.2.2:CLS:F0RI=78T016eSTEP88 

E(I.5B)-II+3B.5B):LINE(I.5B)-(I+15.6B 

INE (1 + 1 5.68) -( 1*38.58 I : PAINT! 1 + 15.55) 

XT:F0RI = 188T015BSTEP5B:CIRCLEU.98> .5 

PAINT(I.9B).1:NEXT:A=1BB:B=95 

28 FORI=8T018:LINE(A.11B)-(B.128).1-A 

S:B=B+6:NEXT:F0RI=57T058STEP-1:F0RJ=8 

175STEP80:PSET(J,I) , 1 : PSETI J , I ♦ 1 ) , 1 5 • 

T:F0RJ=BT025:NEXTJ. I 

38 DRAU-BM168. 1BC3D1BG1BBM165.1801BF1 

155.38E8F7-:F0RI=2T0BSTEP-1 : COLOR* (3. 

.1 ) :FORJ=8T02B8:NEXTJ.I:FORI=23T015B- 

E(16B.I)-(168.I+1 ) .6:NEXT 

48 G0T048 



NEX 
LIN 
) :L 

:NE 
.1 : 



5T0 

NEX 



8BM 
I.I 

LIN 



GUN* ■£»!«• HASEMAKO(261i) 



©?, ?OZZ-ffim*WltH>, £5V>»t>Z 

Zt L^<6-Ct|lrS©*i:Sofc6, BOD 
%Zmi5±V)tz-DtZo Z.(DZfU(fz7hJA*f- 

Aizmmzxtstio 

18 COLOR 15.1 .1 :SCREEN5.2.B:DEFINTA-Z:COL 

0R= (2.1.8.8): COLOR' (3.3.1.1) 

28 F0RI = 8T01 : B$ = " : F0RJ=BT031 :READA$:B$* 

B$+CHR$(VAL(-SH-+A$) ) : NEXT : SPRI TE$ ( I )=B$ 

:NEXT 

38 SETPAGE. 1 : LINE ( B . B ) - ( 1 5 . 7) . 2. BF : LINE ( 

B.B)-(6,2).3.BF:LINE(8.8)-(14.2).3.BF:LI 

NE(B.4)-(2.6).3.BF:LINE(4.4)-(18.6).3,BF 

:LINE(12.4)-(15,6) .3.BF 

4 3 COP Y(B.B)-( 15.7 )T0 (8.8) : FORI =1T01 5 :C0 

PY(8.B)-(15.15)TO(I»16.B) : NEXT : FORI = 1T01 

3:COPY(B.8l-(255.15)TO(8.I«16) : NEXT: COPY 

(B.B)-(255.211 ) .1T0IB.B) .8 

58 LINE(8.8)-(15.15) . B , BF : F0RI=8T01 5 : REA 

DA.B:LINE(A.I)-(B.I) .2:NEXT : SETPAGE . 8 

68 F0RI=6TO13:READA:S0UNDI.A:NEXT 

78 X=12B:Y=98:A=8:B=8e8:C=B:D=8 

88 U=PAD(12) :X=X+PAD!13) :Y=Y+PAD(14) 

98 IFX<BTHENX=BELSEIFX>24BTHENX=24B 

188 IFY<BTHENY=8ELSEIFY>196THENY=196 

118 PUTSPRITEB. (X.Y) . 15. B 

120 IFSTRIGd )=-1THENS0UND8.16:S0UND9.16 

:SOUND18.16:PUTSPRITE1.(X.Y).15.1 :COPY(B 

,B)-(15.15).1T01X.Y) . B.TPSET:A=A+1ELSES0 

UND8.B:S0UND9.B: SOUND 1B.0 

138 PUTSPRITE1 . (B.217) 

140 IFA=BTHEN160 

158 G0T08B 

168 SOUNDS. B:S0UND9.B:S0UND1B.B 

17B END 

180 DATA 08.01 .88.81 .88.81 . BB . 54 . 54 . 88 . 8 

1. 88. 81. 88. 81. BB. 88. 88. 88. 88. 88, 88. 80. 2A 

■2A. 00. 88, 08. 80. 00, 80-00 

1°8 DATA 03.BF.1C.3B.6B.6B.CB.CB.C8.CB.6 

B.6B.3B.1C.8F.83.C8.F8.3S.BC.B6.B6.B3.83 

• B3. 83. fl6.B6.BC.38.FB.C.e 

200 DATA 6.9.4.11.3.12.2.13.1.14.1.14.0, 

15, B. 15. B, 15.8,15,1,14, 1,14, 2, 13, 3, 12. 4, 

11 .6.9 

218 DATA 16,7,8,8,0,0,2.8 
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*-*-K /fc»K79 vUMWttflHHB 



Jif^ 6 nfcSfE'ft icpnr /c'c 

£A\ -Er©HUlcAV=l>©fiJ 
f-LMz&-&(\Z\.\Z><Dh\ 

Htf^e-urns©^ Aya 

3©Z:<£»*-7K-S J ¥ > A'.y K 

%.tzMtz\V)Z.£.t±\-5&&<, 

l\ n Z HOf- AHfe A° v K U 

ive„ rt. ttv-hmz-? 
cfSff *■&§## /tt-r > scs 

/c urns. sycii^o^-A 

£Stal/fc9, 3Z7Lfi1S>frtz& 
■oZl^(DZ\iU\,\ K^yfj- 

'J>&.l\1zlt)lZMt % %7LZ : b r A 

fcfe©bfrr*&iM*e&©£:o 



3 3 r-i®Sf ©& i> d; 5 ic n o 
z^^1tiwhzt\ zzzi^z) 

t(DBm,fttZCftl±{jZ£,D, 

^(Dfem^sMzai\z%mv- 

=fc©jCPg55 ^-rSCBt§© 
tffl£W5JitfCUrfx. ( J;5 1 

rfcttfc. 

izz, )\yz\y±w&.%% 

Zfr&o ^"-ATOA^H©* 
tf^S1"5©tWPsWI-A-7 K 
v"57., +-7K-K©3SHStf 

lYttif, K5-v^7tt-Jl/^AK 

-AWA'Jl-vaVtlAtfo 
ACioril 7.— A-77 

m&ftvz mmcommtd t. i \ 

?>iti:ffbnfcy-Ar\ i\v 
^z-(DmimfrteDmmzteu 
iw£^t>nzL\tz(Dtco &n 
ftfrz- 1 ic < ptf x.3*ifcfc>i} 

*K^nis'Pgbnfc ; fe©r'=fe+ 

•7 K U^cCL^-A1td; LK 

>©S-5/]MI*iJ/cU Rffiglifc* 
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iZZ\ JKy\<%msb£t& 



x u y K^scsdi&r suto 

^©^^Er^^-g>tS5A\ 

istti % \z)VJZ}y\£7-Amm 

3 z tt^-AftUfFllJl&fflr. 

^-JbA^'3©^^©, tLb 
Bd^tMSXlcfcYPXtffc 

z.§^-Atfttxr=fcnu©L; 
^oxtmmmimtsnzuiw 

fcd:5& : fe©&/vfc7rb&o t 

©^-Atfttx.ru-g)L/, ^5 
^-©stot^iiur, isu 

gftOlf-Ai'EDlZ'&iLZZiZ 
Ul\ a MSX©J--+f-IS^o 



^■r\ mmmizAOBytt ■ 

lBit©ffS„5"f KJbB r ^©l 
ttH©^Iio Md:S<77' = a 
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ofc#y-A©rtgtt£SMHr 

$*'jbK^-A g-rsic Stt 

ffl±H]tf±M^d:fflr\ 1^«^ 

^©aR^riiSCPi^nrn 
<tU5 : fcffl < , *ABi^:5 

H^M/) x 1irBLUtU5^6 




&m>kg.x^%t. mmnpmfi'mLix^z&iTtvnT; t~<-itiu>. z7*>-z,xmmix<nx^%t. &t ; t<ntt!.<n%6$-b^v<hi.hnx^x. *?-? 
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r^'Jyh 



MSXB*tt£4 ; -/K-KftM*£&ori.\5fc©tf£U;!)\ 
U-tf©±r3S<*:C:Sj:o3iffi53t^%x.5i-C*<r^ 
ffio SffiStSo *-7K-K©£?©8!£l;f=lY , >Kffl353'y 






"7fc»<»ffiL/OCJya<rB«i6«i:Life©tt|qi^«:i.\ < , tiffE 



±S*-A 






*cr©y-A. 



±;S, 8!iag©i! 
S, flBil!ffifc£ 



/-K3a>A-s<A,tff6©'J'*- 

ACIJ&UtJgorU-SvXx 
MS, W-sC^teOT^I/Sy 

-Ar-rrcss t©«fr o £ 

<£o£^xA©tftBMfeD9 

fc<u, ttx.a; ^/-Affl^ 

©7- A t L r ©;ltltf ffiil u 
C<lV!:U3iS. &14£Pt8< 

fc»i:axf- £*CJK*-Dtt 
A\ ^©^Brx^-^T.roii 

fc&C/K— ■fT.Tzf— *J1$%^ 

tcOt&(Dt>\ tlbfci^a 

3£#-t7Mn6ftrnmv 
-&©^©iii7©^ o d; 5 r\ 

^-Affl/3^L^!J^ofc<S 
5=fc©C7i^rU^-5o ±1$© 

£-€■51^ £££©£„ 

"ropisurs^'© : fcfflc-rs 
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J 30 * 

31 u- 



Sif^t-^teb 
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tzo <t>z.z* mmz\mt>?t 

^^tf-Stn^t©,, t?0\ 
^drOt</3oLr : fe6L^cLV 
t5 1*ilgfrUd;-5o if SB 
ttLUJUS- 1BS©^SB^ ^-f 
Mbtt r ftA' ; i£SHP§£:/jo % 

n^aM9\-zm-ni>tz<Dzm.x 

JHC/1fi7©€fl^^ofc©Bg 

ffifr& ra§Bfia^-f ^©v 
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■LUK2 BgetG^TV^lcttS 
10 '••• :v+ ) ztm*% 

20 CLEAR 800:SCREEN 1:WIDTH 29 

30 PRINT "E?£* ItZtflt?" 

40 PRINT "J:5l»tt U07*?#(Y/N)":A$=INPUT$(1 ) 

50 IF NOT(A$="Y" OR A$="y") THEN PRINT " 
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70 OPEN "DIARY.TXT" AS#1 LEN=200 : F IELD # 
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